Сформировать третий массив из отрицательных элементов массива одного из исходных

program Project1;
 
const
  N = 10;
type
  TArr = array[1..N] of Integer;
 
//Процедура переписывает из массива Arr1 в массив Arr2 отрицательные элементы.
//Через параметр aCnt возвращает количество переписанных элементов.
procedure Proc(const aArr1 : TArr; var aArr2 : TArr; var aCnt : Integer);
var
  i : Integer;
begin
  aCnt := 0;
  for i := 1 to N do
    if aArr1[i] < 0 then begin
      Inc(aCnt);
      aArr2[aCnt] := aArr1[i];
    end;
end;
 
var
  A, B, C : TArr;
  i, Cnt, Ma, Mb : Longint;
  S : String;
begin
  repeat
    //Подготовка исходных массивов и расчёт произведений их элементов.
    Ma := 1;
    Mb := 1;
    Randomize;
    for i := 1 to N do begin
      A[i] := -5 + Random(11); //-5..10.
      if A[i] = 0 then A[i] := 1; //Заменяем нулевые элементы. - Для удобства экспериментов.
      Ma := Ma * A[i];
      B[i] := -5 + Random(11);
      if B[i] = 0 then B[i] := 1; //Заменяем нулевые элементы. - Для удобства экспериментов.
      Mb := Mb * B[i];
    end;
    //Распечатка исходных массивов.
    Writeln('Исходные массивы:');
    Writeln('A:');
    Writeln('Произведение: ', Ma);
    for i := 1 to N do begin
      if i > 1 then Write(', ');
      Write(A[i]);
    end;
    Writeln;
    Writeln('B:');
    Writeln('Произведение: ', Mb);
    for i := 1 to N do begin
      if i > 1 then Write(', ');
      Write(B[i]);
    end;
    Writeln;
 
    //Переписываем в массив "C" отрицательные элементы из того массива, у которого
    //величина произведения элементов меньше. Если величниы произведений элементов
    //Ma и Mb равны, то переписываем в массив "C" элементы из массива "А".
    if Ma <= Mb then
      Proc(A, C, Cnt)
    else
      Proc(B, C, Cnt);
 
    //Распечатка массива "C".
    Writeln('Массив C:');
    for i := 1 to Cnt do begin
      if i > 1 then Write(', ');
      Write(C[i]);
    end;
    Writeln;
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.