Как остановить цикл в pascal?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10

var index: integer;
begin
	index:= 1;
	repeat
		//что-то делаем в цикле
		inc(index);
		if index = 10 then
			Break;
	until index <> 100;
end;

1
2
3
4
5
6

while (условие) do
begin
   if (условие_для_остановки_цикла) then
      break;
   // тело цикла
end;

1
2
3
4
5
6

while (условие) do
begin
   if (условие_для_остановки_цикла) then
      exit;
   // тело цикла
end;