Помогите с Pascal ABC. Можно ли соединить модуль Graph и обычную программу ?

Как сделать чтобы вместе с модулем Graph появлялась программа и можно ли так вообще делать?
Вот программа:
program graph1;
Uses GraphABC;
begin
circle(175, 165, 85);
circle(175, 165, 5);
line(170, 165, 180, 165);
line(175, 160, 175, 170);
SetPixel(170, 165, clred);
SetPixel(171, 165, clred);
SetPixel(172, 165, clred);
SetPixel(173, 165, clred);
SetPixel(174, 165, clblack);
SetPixel(175, 165, clblack);
SetPixel(176, 165, clblack);
SetPixel(177, 165, clred);
SetPixel(178, 165, clred);
SetPixel(179, 165, clred);
SetPixel(180, 165, clred);
SetPixel(175, 160, clred);
SetPixel(175, 161, clred);
SetPixel(175, 162, clred);
SetPixel(175, 163, clred);
SetPixel(175, 164, clblack);
SetPixel(175, 165, clblack);
SetPixel(175, 166, clblack);
SetPixel(175, 167, clred);
SetPixel(175, 168, clred);
SetPixel(175, 169, clred);
SetPixel(175, 170, clred);
line(190, 165, 190, 220);
line(190, 165, 192, 165);
line(190, 180, 197, 180);
line(190, 190, 200, 190);
line(190, 200, 205, 200);
line(190, 210, 210, 210);
line(190, 220, 225, 220);
line(120, 150, 230, 150);
line(120, 145, 120, 150);
line(130, 145, 130, 150);
line(140, 145, 140, 150);
line(150, 145, 150, 150);
line(160, 145, 160, 150);
line(175, 145, 175, 150);
line(190, 145, 190, 150);
line(200, 145, 200, 150);
line(210, 145, 210, 150);
line(220, 145, 220, 150);
line(230, 145, 230, 150);
end.
var
a,x:integer;
begin
randomize;
Writeln('Попади в цель');
write('шанс - 50%');
writeln('Введи 1 или 2 ) ');
readln(a);
x:= random (1,2);
if a=x then writeln('Ого попал! Молодец!');
else writeln('Мда, не повезло ( ');
end.