ПОМОГИТЕ Создать динамические массивы на паскаль

Question

используя указатели. Дан двумерный массив размером (n⋅m). Заполнить одномерный массив, найдя произведение положительных элементов в каждом столбце матрицы.

jurijus_zaksas · Accepted Answer

Динамические массивы на сермяжном паскале создаются при помощи функции GetMem. Одномерные массивы создаются с полпинка, пример двумерного:
function AllocateIntMatrix(n, m: Integer): Pointer;
var
  a: Pointer;
  i: Integer;
begin
  a := GetMem(m * SizeOf(Pointer));
  for i := 0 to m - 1 do
      a^[i] := GetMem(n * SizeOf(Integer));
  AllocateIntMatrix := a;
end;