Срочно!!!!Помогите!Заменить все отрицательные числа на 5, а остальные -на 2

program raf105;

var a:array[1..100] of real;

b,i,j:integer;

begin

writeln('Вводите числа по очереди');

writeln('Чтобы закончить введите 0');

b:=1;

while b<>0 do

begin

 j:= j+1;

 readln(b);

 if b<0

   then a[j]:= 5

   else a[j]:= 2;

end;

writeln;

for i:=1 to j-1 do

writeln(a[i]);

end.

Программа написана на языке PascalABC.NET