Repeat...until

repeat
действия
until условие;
Этот цикл выполняется, пока не выполнится определённое условие:
- условие неверно
- сначала выполняется действие, а потом проверка.
Например:

var
i,s:integer;
begin
s:=0;
i:=0;
repeat
s:=s+i;
i:=i+1
until i>10;
end;

Переменным i и s присваиваем целый тип. Переменным s, i присваиваем 0. Далее выполняются действия в цикле, пока переменная i не станет больше числа 10.