Кодировка

[Loreen]

В текстовом файле заранее хранится какой-либо текст, например: Шифрование перестановкой текста символов заменой шифрование книга код поле ключ ключи.После запуска требуется ввести несколько таких слов из текста, хранящиеся в текстовом файле, которые нужно закрыть. Например введем: текста шифрование заменой код шифрования.
на экране появятся те номера мест, на которых введенные слова стоят в текстовом файле.
Ниже попробовала написать код, но программа работает неправильно. Помогите, пожалуйста доделать

var s,text:string;
i,j,n,koltext,k:Integer;
f:TextFile;
v:array[1..100] of Integer;
begin
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 v[i]:=j;
end;
Close(f);
for i:=1 to koltext do
write(v[i],' ');
writeln;
writeln('Для выхода нажмите enter');
readln
end

[Son Of Pain]

Ты читаешь весь текст в одну строчку. Разбей его на слова, и потом уже сравнивай.

И я не понял, зачем нужна переменная k, если размер словаря уже есть в n?