помогите с графикой

Program V23_N12;
uses graph,crt;
var
  grDriver,grMode,ErrCode: Integer;
  i,x1,x2,Size,j         : word;
  P,P1                   : Pointer;
begin
  grDriver := Detect;
  InitGraph(grDriver, grMode,'');
  ErrCode := GraphResult;
  randomize;
  if ErrCode = grOk then
  begin  { Do graphics }
   setcolor(1+random(15));
   for j:=0 to 100 do begin
    x1:=250;x2:=303;
    for i:=0 to 1 do begin
     Arc(x1, j+150, 45, 135, 40);
     Arc(x2, j+90, 225, 315, 40);
    x1:=x1+106;
    x2:=x2+106;
   end;
  end;
   line(438,119,438,218);
   Size := ImageSize(221, 100, 439, 250);
   GetMem(P, Size);{‚뤥«Ґ*ЁҐ ¬Ґбв  Ї®¤ Є авЁ*Єг ў ¤Ё* ¬ЁзҐбЄ®© Ї ¬пв©}
   GetImage(221, 100, 439, 250, P^);
   ClearDevice;
   for j:=0 to 100 do begin
    x1:=250;x2:=303;
    for i:=0 to 1 do begin
    Arc(x2, j+150, 45, 135, 40);
    Arc(x1, j+90, 224, 315, 40);
    x1:=x1+106;
    x2:=x2+106;
   end;
   end;
   line(438,122,438,221);
   Size := ImageSize(221, 100, 439, 250);
   GetMem(P1, Size);
   GetImage(221, 100, 439, 250, P1^);
   ClearDevice;
   line(220,115,220,479);
   while not keypressed do begin
    PutImage(221, 100, P^, XorPut);
    delay(10000);
    PutImage(221, 100, P^, XorPut);
    PutImage(221, 100, P1^, XorPut);
    delay(10000);
    PutImage(221, 100, P1^, XorPut);
   end;
 
   CloseGraph;
  end
  else Writeln('Graphics error:', GraphErrorMsg(ErrCode));
end.