сделать модуль

[McSaurons]

помогите пожалуйста, нужно сделать модуль из ниже представленной программы, точнее программу с модулем (эта программа будет воткнута в другую*).

program a3;
uses crt;
var
s:array [1..100] of string;
ss:string;
i,j,n,kol:integer;
col:array[1..100] of integer;
kol1:real;
f:text;
begin
clrscr;
write('Wwedite stroku: ');
readln(ss);
assign(f,'text.txt');
reset(f);
n:=1;
repeat
readln(f,s[n]);
inc(n);
until eof(f);
close(f);
kol := 0;
for i:=1 to n do
begin
for j:=1 to length(s[i]) - length(ss) + 1 do
if copy(s[i],j,length(ss)) = ss then inc(kol);
end;

writeln('Kol-vo vhozhdenij - ', kol);


for i:=1 to n do
begin
col[i]:=0;
for j:=1 to length(s[i]) do
begin
if copy(s[i],j,1) = ' ' then inc(col[i]);
if (copy(s[i],j,1) <> ' ') and (j = length(s[i])) then inc(col[i]);
end;
end;

kol := 0;
for i:=1 to n do
kol := kol + col[i];

kol1 := kol / n;

writeln('Srednee kol-vo slov v stroke = ', kol1:8:4);
readln;


assign(f,'text.txt');
append(f);
writeln(f);
write(f,kol1);
close(f);

assign(f,'text.txt');
reset(f);
repeat
readln(f,ss);
writeln(ss);
until eof(f);
close(f);


end.

[s-andriano]

А что именно у Вас не получается?

[McSaurons]

я пытался сделать в модуль

assign(f,'text.txt');
append(f);
writeln(f);
write(f,kol1);
close(f);

assign(f,'text.txt');
reset(f);
repeat
readln(f,ss);
writeln(ss);
until eof(f);
close(f);

эти 2 фрагмента, но на мои переменные ругался тп.