Помогите решить в паскале!!!Даны пять чисел, каждое из которых по модулю не превышает ста. Вычислить максимум среди отрицательных из них.

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]<0)and (a[b]>max) then begin max:=a[b]; c:=c+1; end; end; if c>0 then writeln('Максимум среди отрицательных чисел равняется ',max) else writeln('Нет отрицательных чисел'); end.