Дан двумерный массив. Посчитать сумму его двух столбцов, вывести большую сумму. Выдать соответствующие комментарии — Pascal(Паскаль)

uses crt;
const n=5; m=5;
var a:array[1..n,1..m] of integer;
    s, s1, i, j:integer;
begin
  clrscr;
  for i:=1 to n do
    for j:=1 to m do
      a[i,j]:=random(100);
 
  for j:=1 to 2 do   begin
    s:=0;
    for i:=1 to n do
      s:=s+a[i,j];
    if s>=s1 then s1:=s;
  end;
  
  for i:=1 to n do
  begin
    for j:=1 to m do
      write (' ',a[i,j],' ');
    writeln ;
  end;
 
  writeln;
  writeln (' большая сумма - ',s1);
  readln
end.