С клавиатуры вводится N вещественных чисел (N задаётся пользователем). Определить, самое большое из отрицательных чисел.

var
N,i:integer;
min,t:real;
begin
readln(N);
min:=-maxint;

for i:=1 to N do
begin
readln(t);
if (t<0) and (t>min) then min:=t;
end;
writeln(‘наибольшее отрицательное  ‘, min);
end.