Найти сумму элементов в каждом столбце в двухмерном массиве

var
  a: array[1..20, 1..20] of integer;
  n, m, i, j, s: integer;
begin
  randomize;
  repeat
    write('Ââåäèòå ðàçìåðû ìàòðèöû n, m (1 < n, m < 21): ');
    readln(n,m);
  until (n in [1..20]) and (m in [1..20]);
  writeln('Ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(10);
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln('Ñóììû ýëåìåíòîâ ñòîëáöîâ:');
  for j:=1 to m do
  begin
    s:=0;
    for i:=1 to n do
      s:=s+a[i,j];
    write(s:4);
  end;
  readln
end.

var
  a: array[1..20, 1..20] of integer;
  n, m, i, j, max: integer;
begin
  randomize;
  repeat
    write('Ââåäèòå ðàçìåðû ìàòðèöû n, m (1 < n, m < 21): ');
    readln(n,m);
  until (n in [1..20]) and (m in [1..20]);
  writeln('Ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(100);
      write(a[i,j]:4);
    end;
    writeln;
  end;
  for i:=1 to n do
  begin
    max := a[i,1];
    for j:=2 to m do
      if a[i,j]>max then max:=a[i,j];
    writeln(i,'-ÿ ñòðîêà: max = ',max);
  end;
  readln
end.