[SS3]

Вот тут я решаю такое интересное заданиеи вот что я пока написал на Turbo Pascal:

Код:

 
program my1;
uses crt;
type
rec_info    =record
FIO         :string[30];
part        :string[20];
end;

type
    REGION=record
    Pynkt:string[15];
end;

var
info_f               :file of rec_info;
pynkt_f	    	:file of REGION;
OBL	      		:REGION;
info                  :rec_info;
ch                    :char;
choice              :char;
{-----------------------------}
procedure creat_card_1;
begin
clrscr;
assign(info_f,'info.txt');
rewrite(info_f);
repeat
      with info do
begin
write('Вв. ФИО кандидата: ');
readln(FIO);
write('Вв. партию: ');
readln(part);
end;
write(info_f,info);
writeln('Продолжить[Y/N]?');
ch:=readkey;
until (ch='n')or(ch='N');
close(info_f);
end;
{=============================}
procedure creat_card_2;
begin
     assign(pynkt_f,'OBL.txt');
     rewrite(pynkt_f);
clrscr;
       repeat
       with OBL do
       begin
write('Введите населенный пункт-> ');
readln(pynkt);
       end;
write(pynkt_f,OBL);
writeln('Продолжить [Y/N]?');
ch:=readkey;
       until (ch='N')or(ch='n');
close(pynkt_f);
end;
{==========Главная программа=============}
begin
repeat
clrscr;
writeln('1- Вв. кандидатов');
writeln('2- Вв. населенный пункт');
write('Делайте выбор: ');
readln(choice);
case choice of
'1':creat_card_1;
'2':creat_card_2;
'3':exit;
end;
until ch='3';
end.

Я сделал две процедуры и мне нужно их соединить что бы получить вот такой результат:
Лупенко В. И Смела
Лупенко В. И Черкассы
Лупенко В. И Киев
или на подобии.
Я думал сделать вывод через цикл, но не могу понять куда вставлять счетчики.
Вот как я думаю сделать: голоса кандидатов по регионам вводятся в двойном цикле, так как количество кандидатов и регионов уже известно.