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

program raf105;

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

b,i,j:integer;

begin

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

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

b:=1;

while blt;gt;0 do

begin

 j:= j+1;

 readln(b);

 if blt;0

   then a[j]:= 5

   else a[j]:= 2;

end;

writeln;

for i:=1 to j-1 do

writeln(a[i]);

end.

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