Паскаль, помогите!

Ввести с клавиатуры 20 элементов чисел массива, все отрицательные умножить на - 5 все положительные умножить на 20 и 0 заменить числом 1000

Program n1;

Uses CRT;

Const n=20;

Var a: array[1 ... n] of integer;

i: integer;

begin

ClrScr;

Writeln ('Vvedite massiv');

For i:=1 to n do

readln (a[i]);

For i:=1 to n do

If a[i]<0 then a[i]:=a[i] * (-5)

else if a[i]>0 then a[i]:=a[i]*20

else a[i]:=1000;

For i:=1 to n do

write (a[i]:5);

readln

end.