Как правильно в программу (создание шахматного поля) добавить модуль Unit?

uses graph,wincrt;
procedure Kletka(x1,y1,c:integer;d:integer);
begin
setfillstyle(1,c);
bar(x1,y1,x1+d,y1+d);
end;
var x1,y1,x2,y2,d1,i,j,r,x,y:integer;
begin
initgraph(x1,y1,'');
d1:=50;
r:=d1 div 2;
x:=(getmaxX-8*d1) div 2;//левый край доски
y:=(getmaxY-8*d1) div 2-30;//правый край доски
setfillstyle(1,7);
bar(x,y,x+8*d1+50,y+8*d1+60);//контур доски
x1:=x+30;y1:=y+20;//левый верхний угол клетки а8
for i:=1 to 8 do
  begin
    for j:=1 to 8 do
    if odd(i+j) then Kletka(x1+d1*(i-1),y1+d1*(j-1),6,d1)
    else Kletka(x1+d1*(i-1),y1+d1*(j-1),15,d1);
  end;
setcolor(0);
for i:=0 to 7 do//подписи вертикалей a..h
outtextXY(x+30+d1*i+d1 div 2,y+9*d1-20,chr(ord(i+97)));
for i:=7 downto 0 do//подписи горизонталей 1..8
outtextXY(x+15,y+9*d1-d1*(i+1)-d1 div 4,chr(ord(i+49)));
readkey
end.

unit sh_ds;
interface
uses graph;
procedure Kletka(x1,y1,c:integer;d:integer);
procedure pole(x,y,d:integer);
procedure title(x,y,d:integer);
implementation
procedure Kletka(x1,y1,c:integer;d:integer);
begin
setfillstyle(1,c);
bar(x1,y1,x1+d,y1+d);
end;
procedure pole(x,y,d:integer);
var r,x1,y1,i,j:integer;
begin
r:=d div 2;
setfillstyle(1,7);
bar(x,y,x+9*d+10,y+9*d+10);//контур доски
x1:=x+30;y1:=y+20;//левый верхний угол клетки а8
for i:=1 to 8 do
  begin
    for j:=1 to 8 do
    if odd(i+j) then Kletka(x1+d*(i-1),y1+d*(j-1),6,d)
    else Kletka(x1+d*(i-1),y1+d*(j-1),15,d);
  end;
end;
procedure title(x,y,d:integer);
var i:integer;
begin
setcolor(0);
for i:=0 to 7 do//подписи вертикалей a..h
outtextXY(x+30+d*i+d div 2,y+9*d-20,chr(ord(i+97)));
for i:=7 downto 0 do//подписи горизонталей 1..8
outtextXY(x+15,y+9*d-d*(i+1)-d div 4,chr(ord(i+49)));
end;
end.

uses sh_ds,graph,wincrt;
var x,y,d:integer;
begin
initgraph(x,y,'');
d:=50;
x:=(getmaxX-8*d) div 2;//левый край доски
y:=(getmaxY-8*d) div 2-30;//правый край доски
pole(x,y,d);
title(x,y,d);
readkey
end.

program s1;
uses crt,graph;
 
procedure Vrash(a:real;var x,y:integer;x0,y0,d:integer);
begin
a:=a*pi/180;
x:=x0+round(d*cos(a));
y:=y0-round(d*sin(a));
end;
 
Var gd,gm: smallint;
x0,y0,ax,ay,bx,by,cx,cy,d:integer;
    aa,ab,ac:real;
 
begin
  Gd:=detect;
  initgraph(gd,gm,'');
x0:=683;y0:=384;
aa:=90;ab:=210;ac:=330;
d:=150;
repeat
ax:=x0+round(d*cos(pi*aa/180));
ay:=y0-round(d*sin(pi*aa/180));
bx:=x0+round(d*cos(pi*ab/180));
by:=y0-round(d*sin(pi*ab/180));
cx:=x0+round(d*cos(pi*ac/180));
cy:=y0-round(d*sin(pi*ac/180));
Setcolor(2);
ClearViewPort;
Vrash(aa,ax,ay,x0,y0,d);
Vrash(ab,bx,by,x0,y0,d);
Vrash(ac,cx,cy,x0,y0,d);
line(ax,ay,bx,by);
line(ax,ay,cx,cy);
line(cx,cy,bx,by);
aa:=aa+2;ab:=ab+2;ac:=ac+2;
 
until keypressed;
closegraph;
end.

unit vr_trg;
interface
procedure Vrash(a:real;var x,y:integer;x0,y0,d:integer);
implementation
procedure Vrash(a:real;var x,y:integer;x0,y0,d:integer);
begin
a:=a*pi/180;
x:=x0+round(d*cos(a));
y:=y0-round(d*sin(a));
end;
end.

program s1;
uses wincrt,graph,vr_trg;
 
Var gd,gm: smallint;
x0,y0,ax,ay,bx,by,cx,cy,d:integer;
    aa,ab,ac:real;
 
begin
  Gd:=detect;
  initgraph(gd,gm,'');
x0:=683;y0:=384;
aa:=90;ab:=210;ac:=330;
d:=150;
repeat
ax:=x0+round(d*cos(pi*aa/180));
ay:=y0-round(d*sin(pi*aa/180));
bx:=x0+round(d*cos(pi*ab/180));
by:=y0-round(d*sin(pi*ab/180));
cx:=x0+round(d*cos(pi*ac/180));
cy:=y0-round(d*sin(pi*ac/180));
Setcolor(2);
ClearViewPort;
Vrash(aa,ax,ay,x0,y0,d);
Vrash(ab,bx,by,x0,y0,d);
Vrash(ac,cx,cy,x0,y0,d);
line(ax,ay,bx,by);
line(ax,ay,cx,cy);
line(cx,cy,bx,by);
aa:=aa+2;ab:=ab+2;ac:=ac+2;
until keypressed;
end.