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

Формулировка задачи:

Всем привет, нужна помощь в программе, задание:Сформировать и вывести произвольный массив из 50 вещественных чисел в пределах от -10 до 10. Сформировать и вывести новый массив из всех негативных элементов выходного, сведенных в квадрат. Сделать нужно через процедуры.Очень буду признательна тем кто сделает.Заранее спасибо.

Решение задачи: «Сформировать и вывести новый массив из всех отрицательных элементов исходного»

Листинг программы

const
  n = 50; {количество элементов}
 
type
  TVector = array[1..n] of Real; {вещественный массив}
 
procedure VectorRandom(var V: TVector);
var
  i: integer;
begin
  Randomize;
  for i := 1 to n do begin
    V[i] := Random(2000) / 100 - 10;
  end;
end;
 
procedure VectorPrint(const V: TVector; Count: Integer);
var
  i: integer;
begin
  for i := 1 to Count do begin
    Write(V[i]:0:2, ' ');
  end;
  WriteLn;
end;
 
procedure Task(const V1: TVector; var V2: TVector; var Count: Integer);
var
  i: Integer;
begin
  Count := 0;
  for i := 1 to n do begin
    if V1[i] < 0 then begin
      Inc(Count);
      V2[Count] := Sqr(V1[i]);
    end;
  end;
end;
 
var
  A, B: TVector;
  cnt: Integer;
 
begin
  VectorRandom(A);
  Write('A: ');
  VectorPrint(A, n);
  Task(A, B, cnt);
  Write('B: ');
  VectorPrint(B, cnt);
end.

Объяснение кода листинга программы

В процедуре VectorRandom используется функция Randomize, которая инициализирует генератор случайных чисел. Затем в цикле for происходит генерация случайных чисел от 0 до 1999 и деление их на 100, что даёт отрицательное значение, если случайное число меньше 50. Это отрицательное значение затем записывается в каждый элемент массива V.
В процедуре VectorPrint используется цикл for, который проходит по каждому элементу массива V и выводит его значение с пробелом после него.
В процедуре Task используется цикл for, который проходит по каждому элементу массива V1. Если элемент меньше нуля, то увеличивается счетчик cnt, и в массив V2 записывается квадрат элемента из V1.
В основной части программы сначала вызывается процедура VectorRandom, чтобы создать массив A с отрицательными элементами. Затем выводится этот массив и вызывается процедура Task, чтобы создать массив B с квадратами элементов из A. Наконец, выводится массив B.