Дан двумерный вещественный массив n x n. Найти строку, содержащую наибольшую. сумму компонент и поменять его со столбцом, имеющим тот же номер — Pascal(Паскаль)

uses crt;
const
 n= 3;
var
 a: array[1..n, 1..n] of integer;
 i, j, k, sum: integer;
 
function getsum(i: integer): Integer;
var
 j: Integer;
 sum: Integer;
begin
 sum := 0;
 for j := 1 to n do
  sum := sum + a[i, j];
 
 getsum := sum;
end;
 
begin
 clrscr;
 for i := 1 to n do
  for j := 1 to n do
   readln(a[i,j]);
 clrscr;
 writeln('Array:');
 for i := 1 to n do
  begin
   for j := 1 to n do
    write(a[i, j]:10);
   writeln;
  end;
 sum := getsum(1);
 k := 1;
 for i := 2 to n do
  if getsum(i) > sum then
   begin
    sum := getsum(i);
    k := i;
   end;
 for i := 1 to n do
  begin
   sum := a[k, i];
   a[k, i] := a[i, k];
   a[i, k] := sum;
  end;
 writeln;
 writeln('New array:');
 for i := 1 to n do
  begin
   for j := 1 to n do
    write(a[i, j]:10);
   writeln;
  end;
end.