Просуммировать элементы столбцов матрицы. Результаты представить в виде одномерного массива - PascalABC.NET

Формулировка задачи:

Понимаю что для вас это может быть слишком легко, но я знаком с паскалем второй день, помогите решить: Задать двумерный массив размером 4*3. Просуммировать элементы его столбцов. Результаты представить в виде одномерного массива размером 3. Вывести исходный массив в виде таблицы, полученный в виде строки.

Решение задачи: «Просуммировать элементы столбцов матрицы. Результаты представить в виде одномерного массива»

textual
                            Листинг программы 
                        

                            примерно  так
const n=3; m=4;
var 
a:array[1..n,1..m] of integer;
i,j,s:integer;
begin
for i:=1 to n do 
 for j:=1 to m do 
  begin
   write('a[',i,',',j,'] = ');
        readln(a[i,j]);
  end;
   for i:=1 to n do 
    begin 
     for j:=1 to m do 
      begin
      write(a[i,j]:3);
    end;
     writeln;
     end;
     for j:=1 to m do
      begin
       s:=0;
       for i:=1 to n do
        s:=s+a[i,j];
        write(s:3);
     end;
end.
                        