Двумерный массив. Ввести двумерный массив, найти сумму элементов каждого столбца

program m1;
const e=10;
var m: array [1..e,1..e] of integer;
    a,b,k: integer;
begin
for a := 1 to e do begin
for b := 1 to e do begin
m[a,b] := Random(99)+1;
if m[a,b]>9 then write(m[a,b],' ') else write(m[a,b],'  ');
end;
writeln();
end;
writeln();
 
for a := 1 to e do begin
for b := 1 to e do k:=k+m[b,a];
write(k,' ');
end;
writeln();
end.

Var A:array[1..100,1..100] of integer;
    i,j,n,m,s:integer;
Begin
    Randomize;
    write('Введите кол-во строк: ');readln(n);
    write('Введите кол-во столбцов: ');readln(m);
    For i:=1 to n do 
     Begin
      For j:=1 to m do
       Begin
        A[i,j]:=Random(30)-15;
        write(A[i,j]:4);
       End;
      writeln;
     End;
    For j:=1 to m do 
     Begin
      s:=0;
      For i:=1 to n do 
        s:=s+A[i,j];
      writeln('Сумма элементов ',j,'-го столбца=',s);
     End;
 End.

const
  n=3;
var
  a:array[1..n,1..n] of integer;
  i,j,sum:integer;
begin
  sum:=0;
  randomize;
  for i:=1 to n do
    for j:=1 to n do
      begin
        a[j,i]:=-10+random(40);
        sum:=sum+a[j,i];
        if j=n then
          begin
            writeln('Summa ',i,'-ogo stolbca = ',sum);
            sum:=0;
          end;
      end;
  readln;
end.