массив, упоряд Опции

[Demm]

Помогите пожалуста!

Я отдельно писал процедуру proverka (проверка массива на упорядоченность по возростанию) вроде работали,в проге не работают. Как переправить?

Код

procedure proverka(i:integer);
    begin
    i:=1;
   repeat
    if a[i]<a[i-1] then
    begin
    clrscr;
    write('Первый массив не упорядочен по возростанию');
        for i:=1 to n do
        write(a[i],' ');
         readln;
             halt;
    end;
    i:=i+1;
    until(i>n);
    end;

Тема исправлена,т.к все остальные баги я выловил.

Сообщение отредактировано: Demm - 5.06.2004 14:26

[Demm]

Народ не в том вопрос.
У меня между readln и readkey стояла процедура вывода сообщения о конце программы,но я ее убрал, а readln,readkey забыл.
exit заканчивает процедуру, а halt все прогу,что мне и нужно!!
А за break мне в институте препод все прогу смотреть не станет (у нас плохо относятся к breakу, goto и еще к нек порцедурам)!
У меня вопрос в работоспособности проги.Почему не работает?
Вроде легкая прога а не работает!

Сообщение отредактировано: Demm - 5.06.2004 14:25