Помогите!

[Cheerful-mermaid]

вроде сделала всё как вы говорит, но всё равно не работает...

[IT-man]

program s;
uses crt,graph;
procedure Vrash(a:real;var x,y:integer;const centrx,centry:integer);
var px:integer;
begin
x:=x-centrx;
y:=y-centry;
a:=a*pi/180;
px:=x;
x:=round(x*cos(a)-y*sin(a))+centrx;
y:=round(y*cos(a)+px*sin(a))+centry;
end;
var gd,gm:integer;
ch:char;
tx,ty,ax,ay,bx,by,cx,cy,dx,dy:integer;
tax,tay,tbx,tby,tcx,tcy,tdx,tdy:integer;
w,h,r:integer;
a:real;
begin
write('Rastoyanie do tochki r=');readln(r);
write('Shirina w=');readln(w);
write('Wysota h=');readln(h);
write('Vyhod - c/C');
readln;
tx:=320;ty:=240;
ax:=320-r;ay:=240-(h div 2);bx:=ax-w;by:=ay;
cx:=ax-w; cy:=ay+h;dx:=ax;dy:=cy;
dx:=ax; dy:=cy;
gd:= Detect;
initgraph(gd,gm,'');
Setcolor(12);
Circle(tx,ty,3);
Setfillstyle(1,12);
Fillellipse(tx,ty,3,3);
a:=0;
repeat
tax:=ax;tay:=ay;Vrash(a,tax,tay,tx,ty);
tbx:=bx;tby:=by;Vrash(a,tbx,tby,tx,ty);
tcx:=cx;tcy:=cy;Vrash(a,tcx,tcy,tx,ty);
tdx:=dx;tdy:=dy;Vrash(a,tdx,tdy,tx,ty);
setcolor(11);
moveto(tax,tay);
lineto(tbx,tby);
lineto(tcx,tcy);
lineto(tdx,tdy);
lineto(tax,tay);
delay(10);
setcolor(0);
moveto(tax,tay);
lineto(tbx,tby);
lineto(tcx,tcy);
lineto(tdx,tdy);
lineto(tax,tay);
a:=a+1;
if keypressed then
ch:=upcase(readkey);
until ch='C';
RestoreCrtMode;
end.

вот полный код попробуйте

[__STDC__]

Программа вполне работоспособна в первоначальном виде. Проблема в модулях.
Только что проверил...

[Cheerful-mermaid]

Пишет: Error 15: File not found (CRT.TRU)

[__STDC__]

еще лучше... Какой компилятор пользуете? и может все таки .tPu?

[Cheerful-mermaid]

А гже можно посмотреть, что бы узнать какой именно компилятор?

[__STDC__]

программу где пишете? Free Pascal, Turbo Pascal?

[OCTAGRAM]

Попробуйте School Pak. Обычно в нём всё работает.

[Cheerful-mermaid]

TURBO PASCAL for WINDOWS

[__STDC__]

Попробуйте Free Pascal.. в нем точно все работает.. насчет TP - хз.. расстался с ним очень давно... и не жалею..