PascalABC, uses

[Gorny]

program asd;
uses graphabc;
uses crt;
var x,y:integer;
procedure medved(x,y:integer);
Begin
Circle(x,y,50);
line(x,y,x-80,y+160);
line(x,y,x+80,y+160);
line(x-80,y+160,x+80,y+160);
Circle(x-40,y-30,25);
Circle(x+40,y-30,25);
Circle(x,y,50);
Circle(x+17,y-10,9);
Circle(x-17,y-10,9);
line(x-9,y,x+10,y);
line(x+10,y,x,y+9);
line(x,y+9,x-9,y);
line(x,y+9,x,y+25);
arc(x-40,y+80,25,60,245);
arc(x+40,y+80,25,299,120);
end;
begin
medved(80,100);
delay(100);
medved(240,100);
end.

После Uses crt просит описание или begin... что за лажа? мне просто нужно сделать анимацию медведя

[ai\ekcah^p]

Общая структура графической программы:

Uses crt, graph;
  var Gd, Gm: Integer;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, 'c:\bp\bgi');
  ...
  {Здесь построение изображения}
  ...
  ReadKey;
  CloseGraph;
end.

[Gorny]

Закройте тему, нашел свою глупейшую ошибку...
У меня:

uses graphabc;
uses crt;

а надо:

Uses crt, graph;

[Stilet]

нашел свою глупейшую ошибку...

Поспшешь, людей насмешишь