Вычислить среднее арифметическое положительных и среднее арифметическое отрицательных чисел последовательности

procedure TForm1.Button1Click(Sender: TObject);
var
  A,B: Array[1..100] of Real;
  i: Integer;
  x,y: Real;
begin
  for i := 1 to Length(A) do
    begin
      A[i] := RandomRange(1, 100);
      x := x + A[i];
      x := x / Length(A);
    end;
 
    for i := 1 to Length(B) do
      begin
        B[i] := RandomRange(-100, -1);
        y := y + B[i];
        y := y / Length(B);
      end;
 
      Caption := 'Среднее позитивных = '+FloatToStrF(x, ffFixed, 0, 3)+': '+
                 'Среднее негативных = '+FloatToStrF(y, ffFixed, 0, 3);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  A,B: Array[1..100] of Real; // объявили 2 массива
  i: Integer;                 // объявили переменную счетчик
  x,y: Real;                  // объявили промежуточные переменные
begin
  for i := 1 to Length(A) do  // запустили цикл
    begin
      A[i] := RandomRange(1, 100); // заполним массив случайным числом в промежутке 1..100
      x := x + A[i];               // сложим все элементы массива
      x := x / Length(A);          // поделим сумму элементов массива на длину массива, то есть посчитаем среднее арифм.
    end;
 
    for i := 1 to Length(B) do         // в этой части все по аналогии
      begin                            // только оперируем с массивом В
        B[i] := RandomRange(-100, -1); // в который записываем числа случайным образом в промежутке -100..-1
        y := y + B[i];                 // и так же само как и в первом случае вырешиваем среднее
        y := y / Length(B);
      end;
 
      Caption := 'Среднее позитивных = '+FloatToStrF(x, ffFixed, 0, 3)+': '+ // здесь выведем результаты наших вычислений
                 'Среднее негативных = '+FloatToStrF(y, ffFixed, 0, 3);      // для А и для В
end;