Блок - схему

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var a:array of array of integer;
    n,i,j,k,imx,jmx:byte;
    x,sm:integer;
begin
randomize;
write('Razmer matricy n=');
readln(n);
Setlength(a,n,n);
writeln('Ishodnaya:');
for i:=0 to n-1 do
 begin
   for j:=0 to n-1 do
    begin
     a[i,j]:=random(50);
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
for k:=0 to n-2 do //делаем n-1 раз
 begin
//ищем максимальный в квадрате из непереставленной части матрицы
  imx:=k;jmx:=k;
  for i:=k to n-1 do
  for j:=k to n-1 do
  if a[i,j]>a[imx,jmx] then
   begin
    imx:=i;
    jmx:=j;
   end;
  writeln('Max: a[',imx,',',jmx,']=',a[imx,jmx]);
  //переставляем строку
  for j:=0 to n-1 do
   begin
    x:=a[k,j];
    a[k,j]:=a[imx,j];
    a[imx,j]:=x;
   end;
   //переставляем столбец
  for i:=0 to n-1 do
   begin
    x:=a[i,k];
    a[i,k]:=a[i,jmx];
    a[i,jmx]:=x;
   end;
  //выводим промежуточный результат
writeln('Perestanovka ',k+1);
for i:=0 to n-1 do
 begin
  for j:=0 to n-1 do
  write(a[i,j]:4);
  writeln;
 end;
write('Press Enter...'); 
readln
end;
//считаем сумму(если нужно)
sm:=0;
for i:=0 to n-1 do
sm:=sm+a[i,i];
writeln('Summa na glavnoj=',sm);
readln
end.