while true do
begin
...
end;