Задача на Паскале (нужно полное решение)

Задан массив случайным образом. Преобразовать его след. образом:

все отрицательные элементы заменить модулем, положительные удвоить, нулевые заменить числом 10

var A: array [1 ... 100] of integer;

i: integer;

begin

randomize;

for i : = 1 to 100 do begin

A[i] : = random (200) - 100;

end;

for i : = 1 to 100 do begin

if (A[i] < 0) then A[i] : = Abs (A[i]) ;

else if (A[i] > 0) A[i] : = A[i] * 2;

else A[i] = 10;

end;

end.