Дан целочисленный квадратный массив 4 х 4. Найти строки с наименьшей суммой элементов — Pascal(Паскаль)

Program dmas_19;

uses crt;

const
  m = 4;

var
  a: array [1 .. m, 1 .. m] of integer;
  Min, Sum, iMin, i, k: integer;

begin
  randomize;
  For i := 1 to n do
  begin
    For k := 1 to n do
    begin
      a[i, k] := random(50);
      write(a[i, k]:4);
    end;
    writeln;
  end;
  Sum := 0;
  for k := 1 to m do
    Sum := Sum + a[1, k];
  Min := Sum;
  iMin := 1;
  for i := 2 to n do
  begin
    Sum := 0;
    for k := 1 to m do
      Sum := Sum + a[i, k];
    if Sum < Min then
    begin
      Min := Sum;
      iMin := i;
    end;
  end;
  writeln('Номер строки ', iMin, ' Сумма элементов ', Min);
  Readln;

End.