Переписать программу с Pascal ABC в Turbo pascal

uses graphABC;
begin
setwindowsize(200,200);
setbrushcolor(clyellow);
circle(100,100,50);
setbrushcolor(clwhite);
circle(80,90,10);
circle(120,90,10);
setbrushcolor(clblack);
circle(75,90,5);
circle(115,90,5);
circle(100,110,5);
setpenwidth(3);
arc(100,100,30,220,-40);
end.

uses Graph;
var
  gd,gm:integer;
begin
  gd:=Detect;
  InitGraph(gd,gm,'');
  SetFillStyle(1, yellow);
  setcolor(yellow);
  circle(100,100,50);
  FloodFill(100, 100, yellow);
  setcolor(White);
  circle(80,90,10);
  SetFillStyle(1, white);
  FloodFill(80, 90, white);
  circle(120,90,10);
  FloodFill(120, 90, white);
  setcolor(black);
  circle(75,90,5);
  SetFillStyle(1, black);
  FloodFill(75, 90, black);
  circle(115,90,5);
  FloodFill(115, 90, black);
  circle(100,110,5);
  FloodFill(100, 110, black);
  SetLineStyle(SolidLn,0, ThickWidth );
  arc(100,100,220,320,30);
  ReadLn;
  CloseGraph;
end.

uses Crt,Graph;
var
  gd,gm:integer;
  Size, x, y, dx, dy : integer;
  P1 : pointer;
  Key : char;
begin
  gd:=Detect;
  InitGraph(gd,gm,'');
  SetFillStyle(1, yellow);
  setcolor(yellow);
  circle(100,100,50);
  FloodFill(100, 100, yellow);
  setcolor(White);
  circle(80,90,10);
  SetFillStyle(1, white);
  FloodFill(80, 90, white);
  circle(120,90,10);
  FloodFill(120, 90, white);
  setcolor(black);
  circle(75,90,5);
  SetFillStyle(1, black);
  FloodFill(75, 90, black);
  circle(115,90,5);
  FloodFill(115, 90, black);
  circle(100,110,5);
  FloodFill(100, 110, black);
  SetLineStyle(SolidLn,0, ThickWidth );
  arc(100,100,220,320,30);
 
 
  Size := imageSize(50, 50, 150, 150);
  x := 50;
  y := 50;
 
  GetMem(P1, Size);
  GetImage(50, 50, 150, 150, P1^);
  ClearDevice;
  dy := 5;
  dx := 0;
  repeat
    PutImage(x, y, P1^, NormalPut);
    Delay(200);
    {PutImage(x, y, P1^, XorPut);}
    ClearDevice;
    y := y + dy;
    x := x + dx;
    if ((y+100)>GetMaxY) or (y<0) then begin dy:= - dy; y := y + dy; end;
    if ((x+100)>GetMaxX) or (x<0) then begin dx:= - dx; x := x + dx; end;
    if KeyPressed Then begin
       Key := ReadKey;
       if Key=#32 then
        if dx<>0 then begin dy := -dx; dx := 0; Key := #0 end
                 else begin dx := -dy; dy := 0; Key := #0 end;
    end;
  until Key=#27;
 
  CloseGraph;
end.

uses Graph,Crt;
procedure smail(x,y:integer);
begin
setFillStyle(1, yellow);
setcolor(yellow);
fillellipse(x,y,50,50);
setcolor(white);
SetFillStyle(1, white);
fillellipse(x-20,y-10,10,10);
fillellipse(x+20,y-10,10,10);
setcolor(black);
SetFillStyle(1, black);
fillellipse(x-25,y-10,5,5);
fillellipse(x+15,y-10,5,5);
SetLineStyle(SolidLn,0, ThickWidth );
fillellipse(x,y,5,5);
arc(x,y,220,320,30);
end;
var gd,gm,x,y:integer;
begin
gd:=Detect;
InitGraph(gd,gm,'');
x:=50;
y:=getmaxY div 2;
repeat
smail(x,y);
delay(10);
cleardevice;
x:=x+1;
until keypressed or(x+50>=getmaxX);
ReadKey;
CloseGraph;
end.