Вычислить произведение чмсел в каждом столбце N<=10,M<=5 - Pascal(Паскаль)

uses crt;

var
  a: array [1 .. 10, 1 .. 5] of real;
  n, m, i, j: integer;
  pr: real;

begin
  clrscr;
  write('Kolichestvo strok= ');
  readln(n);
  write('Kolichestvo stolbcov= ');
  readln(m);
  randomize;
  Writeln('Matrica:');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(3) + random;
      write(a[i, j]:5:2);
    end;
    Writeln;
  end;
  readln;
  for j := 1 to m do // идем по столбцам
  begin
    pr := 1;
    for i := 1 to n do
    begin
      pr := pr * a[i, j]; // считаем произведение
    end;
    Writeln('Proizvedenie v stolbce ', j, '=', pr); // выводим
  end;
  readln

end.