ANTICHAT — форум по информационной безопасности, OSINT и технологиям

procedure TForm1.Button1Click(Sender: TObject);  var  SMTP: TIdSMTP;   sPort,sHost,sPassword,sUsername,  sFromAddress,sFromName,sToAddress,sToName,
sSubject,sBoby:string;  
begin      
sPort := '587';      
sHost := 'smtp.gmail.com';      
sUsername := '***';      
sPassword := '*****';      
sBoby:='****'; 
sFromAddress:='******@gmail.ru';      
sFromName:='1';      
sToAddress:='****@mail.ru';      
sToName:='1';      
sSubject:='666';      
SMTP:=TIdSMTP.Create;    
SMTP.Host:=sHost;    
SMTP.Port:=strtoint(sPort);    
SMTP.Username:=sUsername;    
SMTP.Password:=sPassword;    
SMTP.IOHandler:=IdSSLIOHandlerSocketOpenSSL1;    
SMTP.UseTLS:=utUseImplicitTLS;      
IdMessage.Body.Add(sBoby);      
IdMessage.From.Address := sFromAddress;      
IdMessage.From.Name := sFromName;      
IdMessage.Recipients.Add;      
IdMessage.Recipients.Items[0].Address := sToAddress;      
IdMessage.Recipients.Items[0].Name := sToName;  
IdMessage.Subject := sSubject;    
SMTP.Connect;    
SMTP.Send(IdMessage);    
SMTP.Disconnect;    
SMTP.Free;  
end;

var
A:array [1..100,1..100] of integer;
i,j,M:byte;
C,z,Idx1,Idx2:integer;

begin
    repeat
       writeln('Введите размерность матрицы (M<=100): ');
       readln(M);
          if ((M<=1) or (M>100)) then
             begin
                 writeln('Такая размерность невозможна по условию.');
                 writeln('Повторите ввод.');
             end;
    until ( (M>1) and (M<=100) );
    writeln('Введите матрицу');
       for i:=1 to M do
       for j:=1 to M do
          begin
              write('A[',i,',',j,']=');
              readln(A[i,j]);
          end;
   writeln('Вы ввели: ');
       for i:=1 to M do
           begin
               for j:=1 to M do write(A[i,j],' ');
               writeln;
           end;
   for i:=1 to M do
       begin
          Idx1:=1;
          z:=A[i,Idx1];
          for j:=2 to M do
               if A[i,j]<z then
                   begin
                       z:=A[i,j];
                       Idx1:=j;
                   end;
          A[i,Idx1]:=A[i,i];
          A[i,i]:=z;
        end;

    for i:=1 to M do
       begin
          Idx2:=1;
          C:=A[i,Idx2];
          for j:=2 to M do
               if ((A[i,j]>A[i,i]) and (A[i,j]<C)) then
                   begin
                        C:=A[i,j];
                        Idx2:=j;
                   end;
          A[i,Idx2]:=A[i,(M+1-i)];
          A[i,(M+1-i)]:=C;
       end;
    writeln;
    writeln('Новая матрица:');
        begin
            for i:=1 to M do
                 begin
                      for j:=1 to M do
                            write(A[i,j]:5);
                            writeln;
                 end;
            readln;
        end;
end.