думаю что это будет полезным хотя я на ошибки не проверял


uses crt;
var c,max,pk: real;
n,ko,nmax: integer;

begin
write('Укажите признак конца (любое число): '); readln(pk);
repeat
inc(n);
write('-->'); readln©;
if (ko=0) and (c<0) and (c<>pk) then
begin
max:=c;
nmax:=n;
ko:=1;
end else
if (ko>0) and (c<0) and (c>max) and (c<>pk) then
begin
max:=c;
nmax:=n;
end;
until c=pk;
if ko=0 then writeln('Нет отрицательных чисел') else
writeln('Максимальное отрицательное =',max:0:3,' под номером ',nmax);
readln;
end.