процедуры и функции модуля GRAPH

unit myunit;
interface
uses
    GraphABC, crt;
var
   kod: char;
   i: boolean;
   r: byte;
   x1, y1, x2, y2, j: integer;
procedure Main (kod: char; var i: boolean; var r: byte; var x1, x2, y1, y2: integer);
procedure Ground (i: boolean);
procedure Stop (i: boolean);
procedure Go (i: boolean; j: integer);
procedure Koleso1 (i: boolean; j: integer; var x1, y1: integer; r: byte);
procedure Koleso2 (i: boolean; j: integer; var x2, y2: integer; r: byte);
procedure Rama (i: boolean);
procedure Telo (i: boolean);
procedure Nogi (i: boolean; j: integer);
implementation
procedure Main(kod: char; var i: boolean; var r: byte; var x1, x2, y1, y2: integer);
begin
     x1:=250;
     x2:=400;
     y1:=310;
     y2:=310;
     r:=40;
     Ground (i);
     Stop (i);
     while kod<>#13 do
           begin
                i:=false;
                writeln ('для начала движения нажмите Enter'); {отриковка стоящего велосипеда}
                kod:=readkey;
           end;
     i:=true;
     Go (i, j);   {начать движение}
end;
procedure Ground (i: boolean);
begin
     Line (0, 350, 640, 350);
end;
procedure Stop (i: boolean);
begin
     Koleso1(i, j, x1, y1, r);
     Koleso2 (i, j, x2, y2, r);
     Rama (i);
     Telo (i);
     Nogi (i, j);
end;
procedure Go (i: boolean; j: integer);
begin
     for j:=1 to 1000 do
         begin
              Rama (i);
              Telo (i);
              Nogi (i, j);
              Koleso1(i, j, x1, y1, r);
              Koleso2 (i, j, x2, y2, r);
              delay (300);
         end;
end;
procedure Koleso1 (i: boolean; j: integer; var x1, y1: integer; r: byte);
begin
     if i=false then
        begin
             Circle (x1, y1, r);
             pie (x1, y1, r, 0, 30);
             pie (x1, y1, r, 60, 90);
             pie (x1, y1, r, 120, 150);
             pie (x1, y1, r, 180, 210);
             pie (x1, y1, r, 240, 270);
             pie (x1, y1, r, 300, 330);
        end
     else
         if j mod 2<>0 then
            begin
              FillRect (x1-r, y1-r, x1+r, y1+r);
              Circle (x1, y1, r);
              SetPenColor (black);
              pie (x1, y1, r, 15, 45);
              pie (x1, y1, r, 75, 105);
              pie (x1, y1, r, 135, 165);
              pie (x1, y1, r, 195, 225);
              pie (x1, y1, r, 255, 285);
              pie (x1, y1, r, 315, 345);
            end
         else
             begin
                FillRect (x1-r, y1-r, x1+r, y1+r);
                Circle (x1, y1, r);
                SetPenColor (black);
                pie (x1, y1, r, 0, 30);
                pie (x1, y1, r, 60, 90);
                pie (x1, y1, r, 120, 150);
                pie (x1, y1, r, 180, 210);
                pie (x1, y1, r, 240, 270);
                pie (x1, y1, r, 300, 330);
             end;
end;
procedure Koleso2 (i: boolean; j: integer; var x2, y2: integer; r: byte);
begin
     if i=false then
        begin
             Circle (x2, y2, r);
             pie (x2, y2, r, 0, 30);
             pie (x2, y2, r, 60, 90);
             pie (x2, y2, r, 120, 150);
             pie (x2, y2, r, 180, 210);
             pie (x2, y2, r, 240, 270);
             pie (x2, y2, r, 300, 330);
        end
     else
         if j mod 2<>0 then
            begin
              FillRect (x2-r, y2-r, x2+r, y2+r);
              Circle (x2, y2, r);
              SetPenColor (black);
              pie (x2, y2, r, 15, 45);
              pie (x2, y2, r, 75, 105);
              pie (x2, y2, r, 135, 165);
              pie (x2, y2, r, 195, 225);
              pie (x2, y2, r, 255, 285);
              pie (x2, y2, r, 315, 345);
            end
         else
             begin
                FillRect (x2-r, y2-r, x2+r, y2+r);
                Circle (x2, y2, r);
                SetPenColor (black);
                pie (x2, y2, r, 0, 30);
                pie (x2, y2, r, 60, 90);
                pie (x2, y2, r, 120, 150);
                pie (x2, y2, r, 180, 210);
                pie (x2, y2, r, 240, 270);
                pie (x2, y2, r, 300, 330);
             end;
end;
procedure Rama (i: boolean);
begin
     Line (250, 240, 380, 250);
     Line (250, 240, 325, 310);
     Line (380, 250, 325, 310);
     Line (250, 310, 250, 240);
     Line (250, 240, 240, 230);
end;
procedure Telo (i: boolean);
begin
     Line (290, 180, 370, 240);
     Line (290, 180, 280, 220);
     Line (280, 220, 240, 230);
     Circle (290, 160, 20);
end;
procedure Nogi (i: boolean; j: integer);
begin
     if i=false then
        begin
             Line (370, 240, 310, 250);
             Line (310, 250, 330, 290);
             Line (330, 290, 315, 290);
             Line (325, 290, 325, 330);
             Line (370, 240, 330, 330);
             Line (330, 330, 320, 330);
        end
     else
         if j mod 2<>0 then
            begin
                 FillRect (240, 240, 380, 330);
                 Line (370, 240, 310, 250);
                 Line (310, 250, 330, 290);
                 Line (330, 290, 315, 290);
                 Line (325, 290, 325, 330);
                 Line (370, 240, 330, 330);
                 Line (330, 330, 320, 330);
                 Line (250, 240, 380, 250);
                 Line (250, 240, 325, 310);
                 Line (380, 250, 325, 310);
                 Line (250, 310, 250, 240);
                 Line (250, 240, 240, 230);
            end
         else
             begin
                  FillRect (240, 240, 380, 340);
                  Line (370, 240, 305, 310);
                  Line (305, 310, 295, 310);
                  Line (370, 240, 330, 275);
                  Line (330, 275, 340, 310);
                  Line (340, 310, 330, 310);
                  Line (305, 310, 340, 310);
                  Line (250, 240, 380, 250);
                  Line (250, 240, 325, 310);
                  Line (380, 250, 325, 310);
                  Line (250, 310, 250, 240);
                  Line (250, 240, 240, 230);
             end;
end;
end.

uses Graph,crt;
 
var
  grDriver : Integer;
  grMode   : Integer;
  ErrCode  : Integer;
 procedure mal;
    var x:integer;
  begin
 repeat
setcolor(15);
 {zadni kolesa}
circle(0+x,150,30);
circle(0+x,150,23);
{peredni kolesa}
circle(130+x,150,30);
circle(130+x,150,23);
{kriplenia do pedaliv}
line(0+x,150,80+x,150);
{pohula}
line(70+x,150,120+x,110);
{rama}
line(120+x,110,10+x,110);
{pohula}
line(10+x,110,70+x,150);
{do kolesa}
line(0+x,150,10+x,110);
{pedali kr}
circle(0+x,150,5);
circle(70+x,150,10);
{pedal}
line(70+x,150,70+x,170);
line(65+x,170,75+x,170);
{cep}
line(0+x,145,70+x,140);
line(0+x,155,70+x,160);
{do kolesa}
line(130+x,150,120+x,110);
{pedali}
line(120+x,110,120+x,78);
line(120+x,78,100+x,88);
line(10+x,110,10+x,100);
{/}
line(0+x,100,30+x,100);
line(70+x,150,70+x,130);
line(65+x,130,75+x,130);
 
settextstyle(3,0,4);
delay(40);
 
setcolor(1);
circle(0+x,150,30);
circle(0+x,150,23);
circle(130+x,150,30);
circle(130+x,150,23);
line(0+x,150,80+x,250);
line(70+x,150,120+x,110);
line(120+x,110,10+x,110);
line(10+x,110,70+x,150);
line(0+x,150,10+x,110);
circle(0+x,150,5);
circle(70+x,150,10);
line(70+x,150,70+x,170);
line(65+x,170,75+x,170);
line(0+x,145,70+x,140);
line(0+x,155,70+x,160);
line(130+x,150,120+x,110);
line(120+x,110,120+x,78);
line(120+x,78,100+x,88);
line(10+x,110,10+x,100);
line(0+x,100,30+x,100) ;
line(70+x,150,70+x,130);
line(65+x,130,75+x,130);
settextstyle(3,0,4);
if x>649 then x:=10;
 x:=x+1;
until keypressed;
end;
 
begin
 
  grDriver := Detect;
  InitGraph(grDriver, grMode, 'X:\BP');
  ErrCode := GraphResult;
  if ErrCode = grOk then
  begin
   setbkcolor(1);
mal;
    ReadLn;
    CloseGraph;
  End
else WriteLn('ошибка’) GraphErrorMsg(ErrCode));
end.