Cоставить метод и программку для:1)Наполнения лвумерного массива (6x4) случайными

Const
  m = 6;
  n = 4;

var
  a: array[1..m, 1..n] of integer;
  b: array[1..m] of integer;
  i, j, p, pmax, imax: integer;
  flag: boolean;

begin
  1
  Randomize;
  writeln('Исходный массив');
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      a[i, j] := Random(81) - 40;
      write(a[i, j]:4)
    end;
    writeln
  end;
  2
  writeln('Творенья построчно');
  for i := 1 to m do
  begin
    p := 1;
    for j := 1 to n do p := p * a[i, j];
    writeln(i, ': ', p:9)
  end;
  3
  pmax := -MaxInt;
  writeln('Наибольшее построчное творенье'); 
  for i := 1 to m do
  begin
    p := 1;
    for j := 1 to n do p := p * a[i, j];
    if pmax lt; p then
    begin
      pmax := p;
      imax := i;
    end
  end;
  writeln(imax, ': ', pmax:9);
  4
  for i := 1 to m do b[i] := a[i, 1];
  for i := 2 to m do
  begin
    p := b[i];
    j := i - 1;
    flag := False;
    while (j gt; 0) and (not flag) do
      if p lt; b[j] then
      begin
        b[j + 1] := b[j];
        j := j - 1
      end
      else flag := True;
    b[j + 1] := p
  end;
  writeln('Отсортированный 1-ый столбец');
  for i := 1 to m do writeln(b[i]:3)
end.

Тестовое решение:

Начальный массив
 -27   4   3  14
  15  40 -39 -27
  40 -40 -40 -24
 -38   7  18   1
  17  27  29  -9
  10 -32  38   0
Творенья построчно
1:     -4536
2:    631800
3:  -1536000
4:     -4788
5:   -119799
6:         0
Наибольшее построчное творенье
2:    631800
Отсортированный первый столбец
-38
-27
 10
 15
 17
 40