Произведения максимальных элементов каждого столбца матрицы R(4x3)

type  A= array[1..10, 1..10] of integer;
  procedure joinback (var x:a);
 var i, j, M, N: byte;
  S: integer;
 
begin
  write('M = ');
  readln(M);
  write('N = ');
  readln(N);
  randomize;
  { Формируем и выводим матрицу: }
  writeln('Случайная матрица ', M, 'x', N, ':');
  for i := 1 to M do begin
    for j := 1 to N do begin
      a[i, j] :=  - 10 + random(20);
      write(a[i, j]:4)
    end;
    writeln
  end;
  writeln;
  writeln('Вычисляем произведение в каждом столбце:');
  for j := 1 to N do begin { <-- внешний цикл по столбцам }
    S := 1; { Произведение в начале столбца }
    for i := 1 to M do { <-- внутренний цикл по строкам }
      S := S * a[i, j]; { Произведение в j-м столбце }
    { Выводим произведение в конце столбца }
    writeln(j, ') Произведение = ', S)
  end;
  readln
end;

type  A= array[1..4, 1..3] of integer;
 
// заполнение массива
procedure init_arr (var x:a);
var i, j: Integer;
begin
  randomize;
  Writeln('Array:');
  for i := 1 to 4 do begin
    for j := 1 to 3 do begin
      // random
      x[i,j]:=  - 10 + random(100);
      write(x[i, j]:4);
    end;
    writeln;
  end;
  writeln;
end;
// Произведения максимальных элементов столбцов
procedure Multi_maxs(x: a);
var pro,temp: Integer;
    i, j: Integer;
begin
  pro:=1;
  for i := 1 to 3 do begin
    temp:=0;
    for j := 1 to 4 do begin
      if temp <  x[j,i] then temp:= x[j,i];
    end;
    pro:= pro*temp;
    writeln(i,' ',temp);
  end;
  Writeln('------');
  Writeln('Multi = ',pro);
end;
 
//-----------------
основная программа
var mass: A;
begin
  init_arr(mass);
  Multi_maxs(mass);
  readln;
end.