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

uses crt;
var
   a:array[1..100,1..100] of integer;
   i,j,s,n,m:integer;
   b:array[1..100] of integer;
begin
clrscr;
write('Ââåäèòå n=');
readln(n);
write('Ââåäèòå m=');
readln(m);
writeln('Ìàòðèöà');
randomize;
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(51);
    write(a[i,j]:3);
   end;
  writeln;
 end;
for j:=1 to m do
 begin
  for i:=1 to n do
   s:=s+a[i,j];
  b[j]:=s;
  s:=0;
 end;
for i:=1 to m do
 writeln('Ñóììà ýëåìåíòîâ ',i,'-îãî ñòîëáöà ',b[i]);
readln
end.

uses crt;
const n=5; m=4;
var a:array[1..n,1..m]of integer;
i,j:integer;
 
function sum(k:integer):integer;
var i:integer;
begin
 sum:=0;
 for i:=1 to n do sum:=sum+a[i,k];
end;
 
begin
 clrscr;
 randomize;
 writeln('Исходный массив');
 for i:=1 to n do
 begin 
  for j:=1 to m do
  begin
    a[i,j]:=random(100);
    write(a[i,j]:3);
  end;
  writeln;
 end;
 
 for i:=1 to m do writeln('Столбец ',i,' = ',sum(i));
 readln;
end.