Модуль паскаль

[хлебец]

Здраствуйте, делаю курсовую работу, выбрал в виде темы тест;
тест написал ввиде модуля(некоторые вопросы и ответы удалил дабы сэкономить место);

unit WIN;
interface
uses crt;
var
Rz,Trz: text;
mas: array [1..10] of integer;
j,nkey,okey: integer;
mkey: char;
z,k,k1,s: string;
bilo:array [1..10] of boolean;
i,x,yyy,x1:byte;
implementation
Procedure v1;
begin
textbackground(1); clrscr; textbackground(1);
gotoxy(1,15); writeln('Vash variant:');
gotoxy(15,15); readln(z);
writeln(Rz,z);
gotoxy(1,24); writeln(' „«п Їа®¤®«¦Ґ*Ёп **¦¬ЁвҐ [Enter],¤«п ўл室* ў Ј«*ў*®Ґ ¬Ґ*о [Esc].');
readkey;
end;
Procedure v2;
begin
textbackground(1); clrscr; textbackground(1);
gotoxy(1,10); writeln('1) Type Vector = Array[Byte] Of Integer; Var C : Array[1..10] Of Vector; ');
gotoxy(1,11); writeln('2) Var T : File Of String; ');
gotoxy(1,12); writeln('3) Var K : Array [Byte, Byte] Of String[6];');
gotoxy(1,13); writeln('4) Var S : Array[–10000..10000] Of Sring[2].');
gotoxy(1,15); writeln('Vash variant:');
gotoxy(15,15); readln(z);
writeln(Rz,z);
gotoxy(1,24);
writeln(' „«п Їа®¤®«¦Ґ*Ёп [Enter],¤«п ўл室* ў Ј«*ў*®Ґ ¬Ґ*о [Esc].');
readkey;
end;
begin
clrscr;
gotoxy(15,5); writeln('‚ўҐ¤ЁвҐ ”€Ћ: ');
gotoxy(30,5); readln(k);
gotoxy(15,7); writeln('‚ўҐ¤ЁвҐ ЈагЇЇy: ');
gotoxy(35,7); readln(k1);
gotoxy(5,25); writeln(' „«п Їа®¤®«¦Ґ*Ёп **¦¬ЁвҐ [Enter].');
clrscr;
assign(Rz,'D:\Rez.txt');
rewrite(Rz);
assign(Trz,'D:\Truerz.txt');
rewrite(Trz);
textcolor(15);
randomize;
i:=0;
repeat
x:=random(2)+1;
case x of
1: if bilo[1]=false then begin inc(i);bilo[1]:=true; v1; s:='4'; writeln(Trz,s); end;
2: if bilo[2]=false then begin inc(i);bilo[2]:=true; v2; s:='4'; writeln(Trz,s); end;
until i=2;
clrscr;
reset(Rz);
reset(Trz);
gotoxy(10,1); writeln('Vash otvet');
gotoxy(25,1); writeln('Pravilnii otvet');
gotoxy(1,22); writeln('‘в㤥*в ЈагЇЇл: ', k1);
gotoxy(1,23); writeln(k);
for j:=1 to 2 do
begin
textcolor(white);
gotoxy(1,j*2); writeln('Vopros#',j);
readln(Rz,z);
readln(Trz,s);
gotoxy(15,j*2); writeln(z);
gotoxy(30,j*2); writeln(s);
if s = z then
begin
textcolor(green); gotoxy(45,j*2); writeln('Pravilno');
end
else
begin
textcolor(red); gotoxy(45,j*2); writeln('Ne pravilno');
end;
end;
readkey;
end.

а также световое меню (также удалена процедура выхода)

uses WIN,crt, graph;
var driver, mode, k, x: integer;
nkey: char;
f: text;
label metka1;

procedure test;
begin
end;

procedure PDD;
var z,z1,h: integer;
gkey,hkey,jkey: char;
label povtor;

begin
povtor: driver:=detect;
initgraph(driver,mode,'');
cleardevice;

cleardevice;
setcolor(11);
jkey:=readkey;
case jkey of
#114: goto povtor else Exit;
end;
end;

procedure menu(k1: integer);
begin
setbkcolor(1);
setcolor(15);
setfillstyle(1,15);
setcolor(4);
setfillstyle(1,4);
rectangle(50,110,170,140); rectangle(47,107,173,143); { floodfill(48,98,4); }
k:=1;
repeat
nkey:=readkey;
case nkey of
#80: k:=k+1;
#72: k:=k-1;
end;
if k>5 then k:=1;
if k<1 then k:=5;
if k<>0 then
setcolor(15);
setfillstyle(1,15);
k1:=1;
k1:=k1-k;
k1:=abs(k1);
setcolor(red);
setfillstyle(1,4);
rectangle(50,110+50*k1,170,140+50*k 1); rectangle(47,107+50*k1,173,143+50*k 1);{ floodfill(48,98+50*k1,4);}
until nkey=#13;
end;
begin
metka1:
driver:=detect;
initgraph(driver,mode,'');
cleardevice;
setcolor(14);
settextstyle(2,0,4);
outtextxy(300,50,'TEST');
outtextxy(70,120,'Nachat test');
outtextxy(70,170,'Rezultati');
outtextxy(70,220,'Pomosh');
outtextxy(70,270,'O programme');
outtextxy(70,320,'Vixod');
menu(k);
case k of
1: begin cleardevice; readln; goto metka1; end;
2: begin PDD; goto metka1; end;
3: begin cleardevice; outtextxy(250,100,'Zadaney 3'); readln; goto metka1; end;
4: begin cleardevice; outtextxy(250,100,'Zadaney 4'); readln; goto metka1; end;
5: begin
cleardevice;
vixod(x);
case x of
1: Exit;
2: goto metka1;
end;
end;
end;
end.

приношу извенения за столь длинные тексты

хотелось бы узнать как сделать так чтобы можно было вызвать модуль win
в процедуре test и использовать эту процедуру в определнном пункте меню? объеденить тело модуля в общую процедуру не получалось