Use this 
SCAR Code:
program New;
{.include SRL/SRL.scar}
procedure AddString(var S: String; Count: Integer; Text: String);
begin
if (Count > 0) then
S := S + IntToStr(Count) + Text;
end;
procedure TakeBreak(Time: Integer);
var
H, M, S, G: Integer;
SL: String;
begin
MarkTime(G);
Writeln('Sleeping...');
while (Time > TimeFromMark(G)) do
begin
Wait(1000);
ConvertTime(Time - TimeFromMark(G), H, M, S);
SL := '';
if (H > 0) then
AddString(SL, H, ' Hours, ');
if (M > 0) then
AddString(SL, M, ' Minutes and ');
AddString(SL, S, ' Seconds ');
Status('Sleeping: ' + SL);
Disguise('Sleeping: ' + SL);
end;
end;
begin
TakeBreak(60000);
end.