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

[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

[Romtek]

Код

i:=1;
while (i<size) and (a[i]<a[i+1]) do
 inc(i);

if i+1<>size
 then writeln('Не упорядочен!');