Помогите решить в паскале!

Даны пять чисел,

каждое из которых по модулю не превышает ста. Вычислить максимум среди

отрицательных из них.

Var a:array[1 ... 5] of real;

b, c:integer;

max:real;

begin

c:=0;

max:=-100;

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

for b:=1 to 5 do

begin

readln (a[b]) ;

if (a[b]max) then begin

max:=a[b];

c:=c+1;

end;

end;

if c>0 then writeln ('Максимум среди отрицательных чисел равняется ', max)

else writeln ('Нет отрицательных чисел') ;

end.