Обработка матриц, (разделено) Опции

[Embleboy]

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

Спасибо заранее !

[Ozzя]

const
  m = 5;
  n = 7;
var
  a : array [1..m,1..n] of real;
  i,j : integer;
  summs : array [1..n] of real;
begin
  randomize;
  for i:=1 to m do
    begin
      for j:=1 to n do
        begin
          a[i] [j] := random;
          Write(a[i] [j]:8:2);
        end;
      writeln;
    end;
  for j:=1 to n do
    begin
      summs[j]:=0;
      for i:=1 to m do
        summs[j]:=summs[j] + a[i] [j];
    end;
  for i:=1 to n do
    write(summs[i]:8:2);
  readln;
end.

Совершенно случайно завалялось в загашниках