Написать программу в паскале: Даны целое namp;gt;0 и последовательность из n

program zz1;

var a,  n, i, max:integer; // задаем переменные целого типа

begin

write( введите n );  // вводим с клавиатуры число

read(n);  

max:= -10000; // задаем изначальное значение для наибольшего

for i:=1 to n do

begin

read (a);  // вводим еще одно число последовательности

if a lt; 0 then if a gt; max then max:= a; // проверяем, если число больше наибольшего, то записываем его в наибольшее

end;

write ( наибольшее число посреди отрицательных чисел последовательности= , max); // выводим ответ

end.