Изобрадение идущих часов

[StudeHt]

Здравствуйте господа программисты. Мне нужна Ваша помощь! Задание следующее:Написать программу, которая выводит на экран изображение идущих часов, имеющих секундную и минутную стрелки. Поискав по форуму нашел такую же программу. Но она на запускается.. Она компилируется, а при запуске окно среды просто сварачивается и все.. Вот выкладываю код, помогите пожалуйста.

program clock;
uses crt,windos,graph;
var
i,j,gm,gd:integer;
date,hou,min,sec:word;
h,m,s:word;
ph,pm,ps,dh,dm,ds:real;
procedure cif_bl;
var
p:real;
begin
setcolor(blue);
setlinestyle(0,0,ThickWidth);
circle(320,240,70);
p:=0;
while p<2*pi do begin
setcolor(lightgreen);
circle(320+round(70*sin(p)),240+round(70*cos(p)),2);
p:=p+dh;
end;
settextstyle(0,0,1);
setcolor(red);
outtextxy(312,160,'12');
outtextxy(315,315,'6');
outtextxy(240,237,'9');
outtextxy(393,237,'3');

end;
procedure GET_TIME;
begin
gettime(hou,min,sec,date);
end;
begin
initgraph(gm,gd,'C:\BP\BGI');
dh:=2*pi/12;
dm:=2*pi/60;
ds:=2*pi/60;
cif_bl;
get_time;
ph:=hou*dh-dh*3;
h:=hou;
pm:=min*dm-dm*15;
m:=min;
ps:=sec*ds-ds*15;
s:=sec;
repeat
get_time;
if s<>sec then begin s:=sec;
setcolor(black);
line(320,240,320+round(60*cos(ps)),240+round(60*sin(ps)));
setcolor(yellow);
ps:=ps+ds;
line(320,240,320+round(60*cos(ps)),240+round(60*sin(ps)));
setcolor(lightcyan);
line(320,240,320+round(50*cos(pm)),240+round(50*sin(pm)));
setcolor(red);
line(320,240,320+round(40*cos(ph)),240+round(40*sin(ph)));
end;
if m<>min then begin m:=min;
setcolor(black);
line(320,240,320+round(50*cos(pm)),240+round(50*sin(pm)));
setcolor(yellow);
pm:=pm+dm;
line(320,240,320+round(60*cos(ps)),240+round(60*sin(ps)));
setcolor(lightcyan);
line(320,240,320+round(50*cos(pm)),240+round(50*sin(pm)));
setcolor(red);
line(320,240,320+round(40*cos(ph)),240+round(40*sin(ph)));
end;
if h<>hou then begin h:=hou;
setcolor(black);
line(320,240,320+round(40*cos(ph)),240+round(40*sin(ph)));
setcolor(yellow);
ph:=ph+dh;
line(320,240,320+round(60*cos(ps)),240+round(60*sin(ps)));
setcolor(lightcyan);
line(320,240,320+round(50*cos(pm)),240+round(50*sin(pm)));
setcolor(red);
line(320,240,320+round(40*cos(ph)),240+round(40*sin(ph)));
end;

until keypressed;
readkey;
end.

[Sazary]

Все работает. (только пришлось заменить "windos" на "dos")

Она компилируется, а при запуске окно среды просто сварачивается и все.

Это значит, что у вас проблемы с графическим режимом. У меня в TP 7 то же самое.
Я пользуюсь Free Pascal.

[StudeHt]

Спасибо Sazary, во Free Pascal'е все запустилось!