Дан массив А, сформировать из целых частей отрицательных элементов этого массива другой массив, используя вложенные циклы Repeat.- Pascal(Паскаль)

Program Z4;

uses Crt;

const
  Ni = 3;
  Nj = 4;

var
  A: array [1 .. Ni, 1 .. Nj] of real;
  K: array [1 .. Ni * Nj] of integer;
  SrAr: real;
  i, j, Ki, Summ: integer;

BEGIN
  ClrScr;
  Summ := 0;
  WriteLn('Введите элементы двумерного массива-вещественные числа, в том числе отрицательные');
  WriteLn(' в ', Ni, ' строк по ', Nj, ' элементов');
  For i := 1 to Ni do
  begin
    For j := 1 to Nj do
      Read(A[i, j]);
    readln;
  end;
  Ki := 0;
  Summ := 0;
  WriteLn;
  WriteLn('вектор K=');
  i := 0;
  Repeat
    i := i + 1;
    j := 0; { перебор исходного массива в новый }
    Repeat
      j := j + 1;
      if A[i, j] < 0 then
      begin
        Ki := Ki + 1; { количество элементов нового массива }
        K[Ki] := Trunc(A[i, j]);
        Write(K[Ki], '  ');
        Summ := Summ + K[Ki]; { сумма элементов нового массива }
      end;
    Until j = Nj;
  Until i = Ni;
  WriteLn;
  if Ki = 0 then
    write('В исходном массиве нет отрицательных элементов')
  else
  begin
    SrAr := Summ / Ki;
    WriteLn('Среднее арифметическое элементов вектор К равно ', SrAr);
  end;
  readln;

END.