Числовая последовательность, не получается Опции

[Lauri]

Задача такая - определить, являются ли введённые числа возрастающей последовательностью?
Вот так я это сделал:

Код

program posled;
uses crt;
var a:string;
    i,j,k:integer;
    b:byte;
    begin
    clrscr;
    writeln('BBEDITE CTPOKY:');
    readln (a);
    j:=length (a);
    for i:=1 to j do
     begin
     if a[i]<a[i+1] then b:=1
     end;

     if b=1 then
     writeln ('DA') else writeln ('HET');
         readln;
     end.

Но не понимаю в чём ошибка - программа работает некорректно... Помогите плиз разобраться..

[Pola]

Есть такой выход
вместо readln поставить read в твоем варианте
и просить вввести все числа в одну строуку через пробел
тогда будет не заметно, что ты пользователя прервал на полуслове

Ну и что ошибки то нету никакой, я имею в виду рпограмма завернаештся корректно .. можно убрать

and check

и все будет ок ...

если убрать

and checK

будет ошибка

Сообщение отредактировано: volvo - 6.11.2006 1:21

[Lauri]

Да это не выход, даже если read и через пробел, то всё равно некорректно... буду как-нибудь другим способом, благо способов сортировки предостаточно..) всё равно спасибо за помощь;)