Впаскале. ввести натуральное число n. проверить, расположены ли его цифры в порядке неубывания. решить не через массив. (циклами)

Uses crt;
var
i,a,s,min:integer;
begin
write('vvedite 4islo: ');
read(a);
s:=0;
min:=a mod 10;
while a>=1 do
begin
i:=a mod 10;
a:=a div 10;
if i>min then
s:=s+1;
end;
if s>0 then
write('ne verno')
else
write('4islo zapisano verno');
read;
end. 
так пойдет?