[cHeRsAnYa]

psih1, циклы тут (в функции

function randomBoolean: boolean;
begin
if random(4) = 3 then
randomBoolean := false;
else
randomBoolean := true;
end;

) не причём вообще, их тут нет.