Вводится последовательность ненулевых чисел, 0 конец последовательности. Найти наибольшее число

program zz1;

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

begin

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

read(n);

while n lt;gt; 0 do // организуем цикла, в котором будем вводить числа последовательности, пока не будет введен ноль

begin

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

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

end;

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

end.