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

var a:array[1..5] of real;b,c:integer;max:real;beginc:=0;max:=-100;writeln('Введите числа');for b:=1 to 5 dobeginreadln(a[b]);if (a[b]<0)and (a[b]>max) then beginmax:=a[b];c:=c+1;end;end;if c>0 then writeln('Максимум среди отрицательных чисел равняется ',max)else writeln('Нет отрицательных чисел');end.