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

[gabriela007]

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

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

 

[Gruvi]

Эммм язык программирования:telepat:

 

[gabriela007]

Эммм язык программирования:telepat:

Паскаль.можно пошагово алгоритм просто написать

 

[gabriela007]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,windows;
var s,text,slovo:string;
    i,j,n,koltext,k:Integer;
    f:TextFile;
    v:array[1..100] of Integer;
begin
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);

 //----------------------------------------------------
 writeln('Содержимое файла:');
 reset(f);
n:=0;
while not eof(f) do
 begin
  readln(f,s);
  write(s,' ');
n:=n+1;
  S:=S + ' ';
  writeln;
  while Pos(' ',S) > 0 do
  Slovo:=Copy(S,1,Pos(' ',S)-1); {Выделяем слово из строки}
end;
write('Введите текст для кодировки:');
Readln(text);
koltext:=Length(text);
for i:=1 to koltext do
for j:=1 to n do
begin
  if text[i]=slovo[j] then v[i]:=j;
end;
for i:=1 to koltext do
write(v[i],' ');
writeln;
writeln('Для выхода нажмите enter');
close(f);
  readln
end.

попыталась сама написать код,но задача работает некорректно....помогите доработать код