Вывести строки с наибольшей и наименьшей суммой- Pascal(Паскаль)

program stroka;
uses crt;
var t:array[1..20,1..20] of integer;{матрица квадратная}
    n,i,j,max,min,imax,imin,sum:integer;
begin
clrscr;
write('Vvedite razmer matricy n=');
readln(n);
for i:=1 to n do
for j:=1 to n do
   begin
    write('t[', i, ',', j, '] ');
    readln(t[i,j]);
   end;
clrscr;
writeln('Matrica:');
for i:=1 to n do
  begin
    for j:=1 to n do
    write(t[i,j]:4);
    writeln;
  end;
max:=-maxint-1;min:=maxint;imax:=1;imin:=1;{макс= наименьшее число этого типа, мин=наибольшее число этого типа}
for i:=1 to n do
  begin
   sum:=0;
   for j:=1 to n do
   sum:=sum+t[i,j];
   if sum>max then
     begin
       max:=sum;{максимальная сумма}
       imax:=i;{номер строки}
     end
   else if sum<min then
     begin
       min:=sum;{минимальная сумма}
       imin:=i;{номер строки}
     end;
  end;
writeln('Naibolshaia summa elementov=',max,' v stroke ',imax);
writeln('Naimenshaia summa elementov=',min,' v stroke ',imin);
readln
end.