Черчение (детали)

program LR_8_ch_10;
Uses Graph;
Procedure Init;
var Driver,Regim,Error:integer;
begin
  Driver:=Detect;
  InitGraph(Driver,Regim,'');
  Error:=GraphResult;
  if Error <> grOk then
    begin
      writeln('pomulka v proceduri iniciuvann9');
      Halt;
    end;
end;
 
var d,x1,y1:integer;
begin
d:=3;
init;
SetLineStyle(2,0,1);
x1:=50+37*d;
y1:=50+18*d;
Line(40,y1,60+74*d,y1);
Line(x1,10,x1,70*d-10);
SetLineStyle(0,0,3);
Line(50+17*d,50,50,50);
MoveTo(50,50);
LineRel(0,10*d);
LineRel(9*d,0);
LineRel(0,16*d);
LineRel(-9*d,0);
LineRel(0,10*d);
LineRel(17*d,0);
Arc(x1,y1,42,138,27*d);
Arc(x1,y1,222,318,27*d);
MoveTo(50+9*d+56*d-8*d,50);
LineRel(17*d,0);
Linerel(0,10*d);
LineRel(-9*d,0);
LineRel(0,16*d);
LineRel(9*d,0);
LineRel(0,10*d);
LineRel(-17*d,0);
RecTangle(x1-17*d,y1-8*d,x1+17*d,y1+8*d);
SetLineSTyle(0,0,1);
SetTextJustify(0,1);
SetLineSTyle(2,0,1);
Line(25,280+21*d,75+74*d,280+21*d);
Line(50+37*d,255,50+37*d,305+42*d);
SetLineSTyle(0,0,3);
rectangle(50,280,50+74*d,280+42*d);
MoveTo(50+17*d,280); LineRel(0,42*d);
MoveTo(50+57*d,280); LineRel(0,42*d);
SetLineSTyle(0,0,1);
SetTextJustify(0,1);
SetTextStyle(0,0,0);
SetLineStyle(2,0,1);
Line(415,y1,445+42*d,y1);
Line(430+21*d,5,430+21*d,85+42*d);
SetLineSTyle(0,0,3);
rectangle(430,y1-27*d,430+42*d,y1+27*d);
MoveTo(430,y1-18*d);
LineRel(42*d,0);
MoveTo(430,y1+18*d);LineRel(42*d,0);
MoveTo(430,y1-8*d); LineRel(42*d,0);
MoveTo(430,y1+8*d); LineRel(42*d,0);
RecTangle(430+8*d,y1-5*d,430+34*d,y1+5*d);
SetLineStyle(0,0,1);
readln;
CloseGraph;
end.