Составить программу вычисления суммы столбцов элементов матрицы

program matr;
const n=3;
type matrix=array[1..n,1..n] of integer;
mas=array[1..n] of integer;
var 
a:matrix;
s:mas;
 
procedure input (var a:matrix);
var i,j:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(9)+1;
end;
 
procedure output (a:matrix;s:mas);
var i,j:integer;
begin
writeln('Матрица');
for i:=1 to n do
begin
 writeln;
 for j:=1 to n do
 write(a[i,j],'  ');
end;
writeln;
writeln('Суммы');
for i:=1 to n do
 write(s[i],' ');
end;
 
procedure sum(a:matrix; var s:mas);
var summ,i,j:integer;
begin
summ:=0;
for j:=1 to n do
begin 
 for i:=1 to n do
 summ:=summ+a[i,j];
s[j]:=summ;
summ:=0;
end;
end;
 
begin
input(a);
sum(a,s);
output(a,s);
end.

const
  n = 4;
  m = 5;
var
  a : array [1..n, 1..m] of integer;
  i, j, k, s : integer;
 
procedure sum(col : integer; var res : integer);
var y, temp : integer;
begin
  temp := 0;
  for y := 1 to n do
    temp := temp + a[y, col];
  res := temp
end;
 
begin
  randomize;
  writeln('дана матрица:');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i,j] := random(20) - 10;
      write(a[i,j]:4)
    end;
    writeln
  end;
  repeat
    write('введите номер столбца, сумму которого нужно найти: ');
    readln(k);
    if not (k in [1..m]) then writeln('ошибка, повторите ввод')
  until k in [1..m];
  {вычисляем сумму k-го столбца}
  sum(k, s);
  writeln('сумма элементов ', k, '-го столбца равна ', s)
end.