Помогите!

[Cheerful-mermaid]

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:integ er;
tax,tay,tbx,tby,tcx,tcy,tdx,tdy:int eger;
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;
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.

вот написана анимированая программа, как здесь ошибка, я что то не могу понять!!! помогите пожалуйста исправить ошибку, или может у кого то есть какае то написаная анимированая программа в Поскале??

[IT-man]

смотреть тут

[Cheerful-mermaid]

Сообщение от IT-man

смотреть тут

спасибо, но есть одно но, у меня в паскале оно не работает он мне выделяет ошибку

Uses Graph, Crt;

и я не знаю что мне с этим делать, он не дает мне увидеть рисонок....

[__STDC__]

текст ошибки приведите... может модуль graph отсутствует?

[Cheerful-mermaid]

Сообщение от __STDC__

текст ошибки приведите... может модуль graph отсутствует?

скорее всего...вопрос что надо сделать что бы модуль был?

[__STDC__]

Надо найти этот модуль (скачать, попросить у друга, etc.) и либо кинуть его в папку с прогой, либо в папку с другими модулями.. зависит от того где пишете... в FPC можно просто путь указать до модуля при компиляции
***
graph.rar <----- модуль из FPC

[Cheerful-mermaid]

Сообщение от __STDC__

Надо найти этот модуль (скачать, попросить у друга, etc.) и либо кинуть его в папку с прогой, либо в папку с другими модулями.. зависит от того где пишете... в FPC можно просто путь указать до модуля при компиляции
***
Вложение 10386

Знала бы я где его найти, вот что такое не везёт и как с эти бороться, я протсо в этом не сильно соображаю....=(((

[__STDC__]

посмотрите в моем сообщении выше.... и в будущем исходный код размещайте пожалуйста между CODE (кнопочка "шарп" или "решетка")... неудобно так читать... не говоря уж про отступы...

[Cheerful-mermaid]

Сообщение от __STDC__

посмотрите в моем сообщении выше....

Просто разархивиравоную папку кинуть в папку с прогой или файлы кинуть...или лучше в папку с модулями, тогда вопрос в какой папке находяться модули

[__STDC__]

можно из папки файлы graph.* кинуть в папку с прогой... а где находятся модули зависит от того, какой компилятор используете...