Паскаль, помогите! Ввести с клавиатуры 20 элементов чисел массива, все…

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.