Сравнить сумму элементов k-й строки и k-го столбца квадратной матрицы — Pascal(Паскаль)

uses crt;
const n = 5;
var
  a:array[1..n,1..n] of integer;
  i,j,sum,sum2,k:integer;
begin
  randomize;
  repeat
    writeln('vvedite znachenie k');
    readln(k);
  until (k<n) and (k>1);
  for i:= 1 to n do begin
    writeln;
    for j:= 1 to n do begin
      a[i,j]:= random(20);
      write(a[i,j]:3);
    end;
  end;
  for i:= 1 to n do begin
    sum:=  sum + a[k,i];
    sum2:= sum2 + a[i,k];
  end;
  writeln;
  writeln('Summa elemntov ',k,' stroki ',sum);
  writeln('Summa elemntov ',k,' stolba ',sum2);
  if sum > sum2 then
    writeln('Summa ',k,' stroki >')
  else
  if sum2 > sum then
    writeln('Summa ',k,' stolbca >')
  else
  writeln('Oni ravni');
end.