Дана целочисленная прямоугольная матрица

uses crt;
const max=10; {максимальный размер матрицы}
var a:array[1..max,1..max+1] of integer;{+1 столбец для характеристик}
    m,n,i,j,k,x:integer;
begin
clrscr;
repeat
writeln('Введите размеры матрицы от 2 до 10');
readln(m,n);
until(m in [2..10])and(n in [2..10]);
randomize;
writeln('Исходная матрица');
writeln(' ':4*n+3,'Сумма');
for i:=1 to m do
 begin
  a[i,n+1]:=0;
  for j:=1 to n do
   begin
    a[i,j]:=-5+random(11);
    write(a[i,j]:4);
    if (a[i,j]<0)and(a[i,j] mod 2=0) then
    a[i,n+1]:=a[i,n+1]+a[i,j];{суммы по строкам пишем в дополнительный столбец}
   end;
  writeln(a[i,n+1]:6);
 end;
j:=1;
k:=0;
while (j<=n)and(k=0) do
 begin
  i:=1;
  while(i<=m)and(k=0) do
  if a[i,j]=0 then k:=j else inc(i);
  if k=0 then inc(j);
 end;
 if k=0 then writeln('В матрице нет нолей')
 else writeln('Номер первого столбца с нулевым элементом=',k);
{перестановка строк по убыванию значений дополнительного столбца }
for i:=1 to m-1 do
for j:=i+1 to m do
if a[i,n+1]<a[j,n+1] then
for k:=1 to n+1 do
 begin
  x:=a[i,k];
  a[i,k]:=a[j,k];
  a[j,k]:=x;
 end;
writeln('Перестановка строк по убыванию характеристик');
writeln(' ':4*n+3,'Сумма');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln(a[i,n+1]:6);
 end;
readln;
end.