Напишите программу которая вводит последовательность целых чисел заканчивающихся нулем и определяет является ли она возрастающей

Var

max:integer;

new:integer;

begin

while true do

begin

max:=-1;

readln (new) ;

if new mod 10 = 0 thne

begin

if new>max then

begin

writeln ('Данное число больше предыдущего') ;

end else

begin

writeln ('Число меньше или равно предыдущему') ;

end;

max:=new;

end else writeln ('Число не заканчивается на 0') ;

end;

end;