Функцию или процедуру к задаче!

Program zadacha31d;
Uses CRT;
Var FIO,uchastok,adres,kolvo,spisok: text;
    MFIO,Muchastok,Madres,Mkolvo,Mspisok: array [1..30] of string;
    i,j,test: integer;
    schet: file of integer;
 
begin
clrscr;
assign(FIO,'FIO.dat');
assign(uchastok,'uchastok.dat');
assign(adres,'adres.dat');
assign(kolvo,'kolvo.dat');
assign(spisok,'spisok.dat');
 
reset(FIO);
reset(uchastok);
reset(adres);
reset(kolvo);
reset(spisok);
 
assign(schet,'schet.txt');
reset(schet);
read(schet,i);
writeln('i=',i);
close(schet);
 
writeln;
for j:=1 to i do
begin
readln(FIO,MFIO[j]);
write(MFIO[j],' ');
end;
 
writeln;
for j:=1 to i do
begin
readln(uchastok,Muchastok[j]);
write(Muchastok[j],' ');
end;
 
writeln;
for j:=1 to i do
begin
readln(adres,Madres[j]);
write(Madres[j],' ');
end;
 
writeln;
for j:=1 to i do
begin
readln(kolvo,Mkolvo[j]);
write(Mkolvo[j],' ');
end;
 
writeln;
for j:=1 to i do
begin
readln(spisok,Mspisok[j]);
write(Mspisok[j],' ');
end;
 
close(spisok);
close(kolvo);
close(adres);
close(uchastok);
close(FIO);
 
readln;
end.

writeln;
for j:=1 to i do
begin
readln(kolvo,Mkolvo[j]);
write(Mkolvo[j],' ');
end;