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

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;