Дана матрица

Const n=4;
Var T3:array[1..n,1..n] of integer;
    S:array[1..n] of integer;
    i,j,imax,imin:byte;
    t:integer;
Begin
    For j:=1 to n do
     For i:=1 to n do
     Begin
       write('T3[',i,',',j,'] = ');
       readln(T3[i,j]);
     End;
    writeln('Исходная матрица');
    For i:=1 to n do
    Begin
      For j:=1 to n do
      Begin
        S[i]:=S[i]+T3[i,j];
        write(T3[i,j]:4);
      End;
      writeln;
    End;
    imax:=1;imin:=1;
    For i:=2 to n do
     if S[i]>S[imax] then imax:=i
      else if S[i]<S[imin] then imin:=i;
    writeln('Max сумма в строке ',imax);
    writeln('Min сумма в строке ',imin);
    For j:=1 to n do
    Begin
      t:=T3[imax,j];
      T3[imax,j]:=T3[imin,j];
      T3[imin,j]:=t;
    End;
    writeln('Полученная матрица');
    For i:=1 to n do
    Begin
      For j:=1 to n do
       write(T3[i,j]:4);
      writeln;
    End;
    readln;
End.