pascal, условие

[ser2live]

Как перенести sleep оттуда, туда где указано (см. рисунок):
Program Cinema;
uses crt;
var
Tz : real;
RUo : integer;
RUn : integer;
begin
repeat
sleep(300);
if Tz>=24 then begin RUo:=10; RUn:=0; end
else if Tz<=18 then begin RUo:=0; RUn:=15; end
else begin RUo:=0; RUn:=0; end;
until (RUn=0)and(RUo=0);
end.