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

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;