Программа

Program Pilshikov_5_10 (input,output);
{ Даны целое n>0 и последовательность
  из n вещественных чисел,
  среди которых есть хотябы одно
  отрицательное число.
  Найти величину наибольшего
  среди отрицательных чисел
  этой последовательности. }
Var
  n,i:integer; { n - количество чисел в последовательности,
                 i - номер текущего члена в последовательности }
  x,max:real;  { x - текущий член последовательности
               max - максимальное среди введенных отрицательных чисел }
  Flag:boolean;{ Указывает на наличие среди введенных чисел отрицательных }
BEGIN
  Flag:=false;
  write('Введите количество чисел в последовательности ');
  readln(n);
  for i:=1 to n do Begin
                     write('Введите число ');
                     readln(x);  { Ввод числа последовательности }
                     if x<0 then                                { Если введенное число <0 }
                                if Flag                         { и среди предыдущих есть отрицательные }
                                       then if x>max            { и оно больше предыдущего максимального }
                                                    then max:=x { то его значение присваивается переменной "max" }
                                                    else
                                       else begin               { Если среди предыдущих нет отрицательных }
                                              max:=x;           { то переменной "max" присваивается текущее значение }
                                              Flag:=true        { и переменной "Flag" присваивается true }
                                            end
                   End;
  writeln('Максимальное отрицательное число ',max)
END.