помогите исправить Паскаль часы

program clock;

var
h: integer;
begin
writeln('Не подскажите который час? ');
read(h);
while h>0 do
begin
writeln('Ку-ку');
Sound(1000);
Delay(400);
NoSound;
Delay(100);
Sound(800);
Delay(300);
NoSound;
Delay(500);
h:=h-1;
end;
end.