Функция проверки монотонности

[ax1d]

function ismono(a:array of integer):boolean;
var i:integer;
mono:boolean;
begin
mono:=true;
for i := 1 to length(a) - 1 do
if not (a[i] >= a[i-1]) then mono := false;
result:=mono;
end;

function ismono2(a:array of integer):boolean;
var i:integer;
mono:boolean;
begin
mono:=true;
for i := 1 to length(a) - 1 do
if not (a[i] <= a[i-1]) then mono := false;
result:=mono;
end;


как исправить чтобы проверял не всю строчку (for i := 1 to length(a) - 1 do) а до того момента как условие не выполняеться

[mihali4]

Принудительный выход из цикла осуществляется по команде EXIT.
Например:

var i: integer;
begin
for i:=0 to 100 do
begin
Label1.Caption:=IntToStr(i);
Application.ProcessMessages;
if i=10 then
exit;
end;
end;

[ax1d]

нужно через другой цикл exit или break нельзя...

[856100]

нужно через другой цикл exit или break нельзя...

Ну если Exit и Break нельзя, то goto вам в помощь =)

нужно через другой цикл

А конктретнее? Циклов много:

repeat
инструкции
until условие

While условие do
begin
инструкции
end