Дана матрица А(3’4). Сформировать вектор k, содержащий целые части отрицательных элементов матрицы А. Вычислить среднее арифметическое элементов вектора k. Перебор элементов исходной матрицы вести по столбцам- Pascal(Паскаль)

Program main;

var
  a: array [1 .. 3, 1 .. 4] of real;
  k: array [1 .. 12] of real;
  l, i, j, m: integer;
  ariph: real;

begin
  { formiruem zadanniy massiv A }
  randomize;
  WriteLn('Massiv A:');
  For i := 1 to 3 do
  begin
    For j := 1 to 4 do
    begin
      a[i, j] := 5-random(10); { sluchajnye znachenija } { "-5" ето понты)) }
      Write(a[i, j], '  ');
    end;
    WriteLn;
  end;

  WriteLn;
  WriteLn('Massiv K:');

  m := 0;
  For i := 1 to 3 do
  begin
    For j := 1 to 4 do
    begin
      if (a[i, j] < 0) then
      begin
        m := m + 1;
        k[m] := int(a[i, j]); { celaja chastj ot x }
        Write(k[m], ' ');
      end;
    end;
  end;
  { m - dlina massiva K }

  { srednee arifmeticheskoe }
  ariph := 0;
  For i := 1 to m do
    ariph := ariph + k[i];
  ariph := ariph / m;

  WriteLn;
  Write('Sr.Arifm. = ', ariph:4);

  Readln;

end.