Паскаль. заполнить массив случайными числами от -20 до 20. вывести на экран. все отрицательные числа заменить на 5

Предыдущий
вопрос Следующий
вопрос

program RandomArray;

va
arr: array[1..10] of integer
i: integer;

begi
Randomize;

// заполнение массива случайными числами от -20 до 2
for i := 1 to 10 d
begi
arr[i] := Random(41) - 20
end;

// вывод массива на экра
writeln('Исходный массив:')
for i := 1 to 10 d
begi
write(arr[i], ' ')
end;

// замена отрицательных чисел на
for i := 1 to 10 d
begi
if arr[i] < 0 the
begi
arr[i] := 5
end
end;

// вывод измененного массива на экра
writeln
writeln('Массив после замены отрицательных чисел на 5:')
for i := 1 to 10 d
begi
write(arr[i], ' ')
end;

end.