Кто шарит в Паскале помогите в пж по информатике

На

program RandomArray;

var
i, countNegatives, sumPositives: integer;
numbers: array[1..8] of integer;

begin
randomize;
countNegatives := 0;
sumPositives := 0;

for i := 1 to 8 do
begin
numbers[i] := random(21) - 10; // Генерация случайного числа от -10 до 10
if numbers[i] < 0 then
countNegatives := countNegatives + 1
else
sumPositives := sumPositives + numbers[i];
end;

writeln('Массив:', numbers);
writeln('Количество отрицательных чисел:', countNegatives);
writeln('Сумма положительных элементов массива:', sumPositives);
end.

program ArrayOperations;
uses
SysUtils;

const
SIZE = 8;
MIN_VALUE = -10;
MAX_VALUE = 10;

var
numbers: array[1..SIZE] of Integer;
i: Integer;
negativeCount: Integer;
positiveSum: Integer;

begin
Randomize;

// Заполнение массива случайными числами от MIN_VALUE до MAX_VALUE
for i := 1 to SIZE do
begin
numbers[i] := Random(MAX_VALUE - MIN_VALUE + 1) + MIN_VALUE;
end;

// Подсчет количества отрицательных чисел
negativeCount := 0;
for i := 1 to SIZE do
begin
if numbers[i] < 0 then
negativeCount := negativeCount + 1;
end;

// Подсчет суммы положительных элементов массива
positiveSum := 0;
for i := 1 to SIZE do
begin
if numbers[i] > 0 then
positiveSum := positiveSum + numbers[i];
end;

// Вывод результатов
writeln('Массив чисел:');
for i := 1 to SIZE do
begin
write(numbers[i], ' ');
end;
writeln;
writeln('Количество отрицательных чисел: ', negativeCount);
writeln('Сумма положительных элементов: ', positiveSum);
end.