Until

Операторы между словами Repeat и Until повторяются до тех пор, пока булево выражение является Истинным (True).

Последовательность операторов выполнится по крайней мере один раз!

Синтаксис

Repeat
Оператор;
Оператор;
...
Оператор
Until выражение

Примеры
{ Операторы цикла Repeat }
 Repeat
  Ch:=GetChar
 Until Ch<>' ';
 
 Repeat
  Write('Введите значение : ');
  ReadLn(I);
 Until (I>=0) And (I<=9);