Как остановить цикл в 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;