Задание цикла с предусловием.
while <условие цикла> do <оператор цикла>;
Выполнение операции пока выполняется условие цикла.
var i = 1; while i<= 10 do begin i = i + 1; end;
В результате выполнения примера переменной i будет присвоено значение 11.