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

Uses
  CRT;

Const
  nmax = 5;

var
  a: array [1 .. nmax, 1 .. nmax] of integer;
  i, j, k: integer;
  sum, sum2: real;
  t: boolean;

Begin
  FOR i := 1 to nmax DO
  begin
    FOR j := 1 to nmax DO
    begin
      a[i, j] := random(10) - 3;
      write(a[i, j]:3);
    end;
    writeln;
  end;
  writeln;
  sum := 0;
  sum2 := 0;
  FOR i := 1 to nmax DO
  begin
    sum := sum + a[i, 2];
    sum2 := sum2 + a[i, nmax];
  end;
  if sum > sum2 then
    write('Больше')
  else if sum < sum2 then
    write('Меньше')
  else
    write('Равно');
  Readln

End.