Возрастающая или убывающая последовательность цифр в числе.

uses crt;
var n:longint;
    a,b,k,u,v:byte;
begin
clrscr;
repeat
write('Введите целое положительное число n>9 n=');
readln(n);
until n>9;
a:=n mod 10;
n:=n div 10;
k:=1;
u:=0;
v:=0;
while n>0 do
 begin
  b:=n mod 10;
  k:=k+1;
  if b<a then inc(u)
  else if b>a then inc(v);
  a:=b;
  n:=n div 10;
 end;
if u=k-1 then write('Цифры в числе возрастают')
else if v=k-1 then write('Цифры в числе убывают')
else write('Цифры не упорядочены');
readln
end.

Str(n,s);
f1:=true;f2:=true;
For i:=1 to Length(s)-1 do
 if s[i]>s[i+1] then f1:=false;
For i:=1 to Length(s)-1 do
 if s[i]<s[i+1] then f2:=false;
if f1 then writeln('Возрастающая')
 else if f2 then writeln('Убывающая')
  else writeln('Не возрастающая и не убываюбщая');

uses crt;
var n:longint;
    a,b,k,u,v:byte;
begin
clrscr;
repeat
write('Введите целое положительное число n>9 n=');
readln(n);
until n>9;//число мин 2х-значное
a:=n mod 10;//отделяем первую цифру с конца
n:=n div 10;//сокращаем число в 10 раз
k:=1;//1 цифра
u:=0; //количество убываний с конца
v:=0; //количество возрастаниий
while n>0 do //пока число не 0
 begin
  b:=n mod 10;//отделяем очередную последнюю цифру
  k:=k+1; //считаем
  if b<a then inc(u)//если меньше-убывание
  else if b>a then inc(v);//если больше-возрастание
  a:=b;//запомним эту цифру
  n:=n div 10;//сократим число
 end;
if u=k-1 then write('Цифры в числе возрастают')//если с конца все убывают
else if v=k-1 then write('Цифры в числе убывают')//если все возрастают
else write('Цифры не упорядочены'); //если не все одинаково
readln
end.

 begin
       readln(n)
     i:=n j:=0;
    repeat
       j:=i mod 10
       i:=i div 10;
     until (i=0) or (i mod 10>j)
    if i=0 then возрастает
            else нет
end.

if i=0 then возрастает
            else нет