Нужно отладить программу

program d;
type mas=array[1..20,1..20] of integer;
var 
   A:mas;
   sum,i,j,maxSum,N,K,ii,jj,tmp:integer;
begin
for i:=1 to K do begin
  sum := 0;
  for j:=1 to N do sum := sum + A[i,j];
  if (i=1) or (sum>maxSum) then maxSum := sum;
end;
for i:=1 to K do begin
  sum := 0;
  for j:=1 to N do sum := sum + A[i,j];
  if sum=maxSum then begin 
        for ii:=1 to n-1 do
         for jj:=ii+1 to n do
          if a[i,ii]>a[i,jj] then begin
            tmp:=a[i,ii];
            a[i,ii]:=a[i,jj];
            a[i,jj]:=tmp;
           end;
  end
end;
for i:=1 to k do
 for j:=1 to n do
 begin
 write(a[i,j],' ');
 writeln;
end;
end.

type mas=array[1..20,1..20] of integer;
function summa(a:mas;y,s:integer):integer;
var j:integer;
begin
result:=0;
for j:=1 to y do
result:=result+a[s,j];
end;
 
var a:mas;
    k,n,i,j,max,ii,jj,tmp:integer;
begin
randomize;
writeln('Введите размеры матрицы от 1 до 20');
readln(k,n);
writeln('Исходная матрица');
for i:=1 to k do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(10);
    write(a[i,j]:3);
   end;
  writeln;
 end;
max:=-maxint;
for i:=1 to K do
if summa(a,n,i)>max then max:=summa(a,n,i);
for i:=1 to K do
if summa(a,n,i)=max then
 begin
   for ii:=1 to n-1 do
   for jj:=ii+1 to n do
   if a[i,ii]>a[i,jj] then
    begin
     tmp:=a[i,ii];
     a[i,ii]:=a[i,jj];
     a[i,jj]:=tmp;
    end;
 end;
writeln('Максимальная сумма в строке=',max);
writeln('Сортировка строк с максимальной сумммой');
for i:=1 to k do
 begin
   for j:=1 to n do
   write(a[i,j]:3);
   writeln;
 end;
end.