[NIch]

Почитай лучше задание...

Вводится последовательность из семи чисел или букв

А если последовательность будет поболе то можно при помощи цикла организовать...типа

Код:

var
 i : integer;
 Bool : boolean;
 String : String;
begin
...
for i :=1 to Length(String) do begin//от единицы до конца строки
 if Ord(String[i-1])>Ord(String[i]) then begin//если предыдущий меньше текущего
  Bool := true;//Дополнительная переменная Да 
 end
 else begin//если предыдущий не меньше текущего
  Bool := false;// Нет
  Break;//выйти из цикла
 end;
 if Bool = true then//в конце цикла если да то
  ShowMessage('Последовательнось возрастающая');

Код не проверял...