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

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

Program n1;Uses CRT;Const n=20;Var a: array[1..n] of integer; i: integer;beginClrScr;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);readlnend.