Задача на Паскале(нужно полное решение)Задан массив случайным образом. Преобразовать его след. образом:все отрицательные элементы заменить модулем, положительные удвоить, нулевые заменить числом 10

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

program replaceElements;
const
n = 10;
var
arr: array [1..n] of integer;
i: integer;
begin
randomize;

// заполняем массив случайными значениями
for i := 1 to n do
begin
arr[i] := random(21) - 10; // генерируем числа от -10 до 10
write(arr[i], ' ');
end;
writeln;

// преобразовываем массив
for i := 1 to n do
begin
if arr[i] < 0 then
arr[i] := abs(arr[i]) // заменяем отрицательное число его модулем
else if arr[i] > 0 then
arr[i] := arr[i] * 2 // удваиваем положительное число
else
arr[i] := 10; // заменяем нулевое число

end;
end.