Целочисленная квадратная матрица

const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,m,i,j,k,f,o,p,mx,mn,imx,jmx,x:integer;
begin
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-5+random(20);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
mn:=a[1,1];//найдем минимальное
for i:=1 to n do
for j:=1 to n do
if a[i,j]<mn then mn:=a[i,j];
for k:=1 to n do //n раз
 begin
  mx:=mn; //пусть макс=мин
  for i:=1 to n do
  for j:=1 to n do
  //если больше макс и не на месте [k,k]
  if (a[i,j]>mx)and((i>=k)and (j>=k)or(i<>j)) then
   begin
    mx:=a[i,j]; //то это очередной макс
    imx:=i;  //и его индексы
    jmx:=j;
   end;
  x:=a[k,k];//обменваем его с элементом [k,k]
  a[k,k]:=a[imx,jmx];
  a[imx,jmx]:=x;
 end;
writeln('Максимальные на главную диагональ:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
//удаление строк со всеми положительными
i:=1;
f:=0; //наличие строк для удаления
m:=n; //количество строк
while (i<=m)and(m>0) do
 begin
  o:=0; //не положительные
  j:=1;
  while(j<=n)and(o=0) do
  if a[i,j]<=0 then o:=1
  else j:=j+1;
  if o=0 then
   begin
    f:=1;
    if i=m then m:=m-1
    else
     begin
      for k:=1 to n do
      for p:=i to m-1 do
      a[p,k]:=a[p+1,k];
      m:=m-1;
     end
   end
  else i:=i+1;
 end;
if f=0 then write('Строк со всеми положительными нет нет')
else if m=0 then write('Все строки удалены!')
else
 begin
  writeln('Строки со всеми положительными удалены:');
  for i:=1 to m do
   begin
    for j:=1 to n do
    write(a[i,j]:4);
    writeln;
   end;
 end;
 
end.