Делфи кодировочная книга

[nikagru]

program Pr;

{$APPTYPE CONSOLE}

uses
SysUtils,
windows;

type
imas=array[1..100] of integer;
var s,text:string;
i,j,n,koltext,k:integer;
f:TextFile;
a:imas;
begin
setconsolecp(1251);
setconsoleoutputcp(1251);
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;
//----------------------------------------------------
writeln('содержимое кодировочной книги:');
reset(f);
k:=0;
while not eof(f) do
begin
readln(f,s);
write(s,' ');
k:=k+1
end;
Close(f);
writeln;
//-------------------------------------------
write('Введите текст для кодировки:');
Readln(text);
koltext:=Length(text);
Reset(f);

for i:=1 to koltext do
for j:=1 to k do
begin
readln(f,s[j]);
if text[i]=s[j] then a[i]:=j
end;
Close(f);

for i:=1 to koltext do
write(a[i],' ');
writeln;
writeln('Для выхода нажмите enter');
readln
end.



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