Pascal кодировочная книга

[Bree]

Здравствуйте! Помогите, пожалуйста, доработать кодировочную книгу.

Задается некоторое количество слов, которые надо закодировать в соответствии с местом, на котором они встречаются в текстовом файле. Если какое-то слово встречается в тексте меньшее количество раз чем просят закодировать, надо вывести повтор кода.

Т.е. например текстовый файл:
мама
папа
мама

необходимо закодировать:
мама
мама
мама

Должен получиться код: 1 3 1
У меня же получается: 1 3
Не могу сообразить как сделать, чтобы после последней встречи в файле данного слова она начинала считывать код сначала

program kodeboooook;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  windows;

type
imas=array[1..100] of integer;
textmas=array[1..20] of string;
var text:textmas;
    s:string;
    c:char;
    i,j,n,koltext,m,k:integer;
    f:TextFile;
    a:imas;
    empty,found:boolean;
    sht:set of char;

begin
setconsolecp(1251);
setconsoleoutputcp(1251);
sht:= [' ',',','.','(',')',':','?','!'];
  Write('введи кол-во слов в кодировочной книге: ');
  readln(n);
 //---------------------------------------------
 Assign(f,'Кодировочная книга.txt');
 Rewrite(F);
 writeln('введи ',n,' слов(a):');
 for i:=1 to n do
 begin
   Readln(s);
   Writeln(f,s);
 end;
 Close(F);
 //----------------------------------------------------
writeln ('сколько слов изволите кодировать?');
readln(e);
writeln('Введите ', m,' слов для кодирования, после каждого нажмите enter');
for i := 1 to m do
    readln(text[i]);
Reset(F);
i:=0;
found:=false;
 while not eof(F) do
 begin
   readln(f,s);
   inc(i);
    for j := 1 to m do
     if s=text[j] then a[i]:=i;
 end;
Close(F);
for i:=1 to n do
if a[i]<>0 then write(a[i],' ');
writeln;


readln
end.