Repeat..Until

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

Объявление

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

Замечания

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

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