Как сделать бесконечный цикл в pascal?

1
2
3
4
5
6
7

Program Infinite;
begin
	while true do
		begin
			// все что тут записано, будет выполняться бесконечно
		end;
end.