Здравствуйте, Хорост Андрей Викторович!
Задача с пояснениями в приложении.
Удачи!!!

Приложение:
var {N-длина последовательности, i-счетчик для For} n, i: integer; {ivar-введенное число, max-максимальное отрицательное число} iVar, Max: real;begin {повторяем пока не введено N>0} repeat Write(‘Введите N (N>0): ‘); readln(n); until (N>0); {Нач. значение максимального числа, если не будет ни одного отр. то max=0 и программа выведе сообщении об отсутствии отр. чисел} max:=0; {Первый цикл ввода чисел завершится когда будет введено отр. число или когда введены все числа} for i:=1 to N do begin write(‘Введите число: ‘); readln(iVar); {если введено отр. число, то изменяем Max на это число и выходим из цикла} if iVar < 0 then begin Max:=iVar; break; end; end; {Второй цикл ввода} for i:=i+1 to N do begin write(‘Введите число: ‘); readln(ivar); {если введено отриц. и больше Max, то изменяем значение Max} if (iVar<0) and (iVar>max) then max:=iVar; end; {Введены ли отриц. числа?} if max <> 0 then {Да-выводим максимальное из них} write(max:8:3) else {Нет-сообщаем об ошибке} write(‘Нет отрицательных чисел!!!‘); readln;end.