Напишите в паскале программу которая находит наибольшое отрицательное число .

Var
n,i,a,max:Integer;
begin
max:=-36000;
WriteLn('Введите количество чисел');
ReadLn(n);
Writeln('Вводите числа');
for i:=1 to n do
readln(a);
if (a<0) and (a>max)then max:=a;
Writeln('Наибольшее отрицательное число = ', max);
end.