Поможете написать алгоритм?
program Test;
uses crt;

var
  i,len : integer;
  str : string[11];
  result : string[5];
begin
  write('Input string: ');
  readln(str);
  len:=length(str);
  result:='false';
  if (len>1) and (len<=10) then begin
    i:=1;  
    while (str[i+1]<str[i]) and (i<len) do begin
      //write(str[i+1]);
      inc(i);
    end; 
    if (i=len) then begin
       result:='true';
    end;
  end;
  writeln(result);
end.
Мне казалось что язык мертвый...
1. Можно с помощью остатка от деления положить каждую цифру в отдельную переменную и просто сравнить 1 и 2, 2 и 3, 3 и 4.

2. Можно перебирать по 2 цифры и смотреть их разность. Если она больше нуля, значит расположены по порядку. Суть примерно такая же, как и в первом способе, просто немного другой подход