чтение файла , выделение слов Опции

[HeX]

Условие такое:
С помощью текстового редактора создать файл, содержащий текст, длина которого не превышает 700 символов (длина строки текста не должна превышать 70 символов).
Имя файла должно иметь расширение DAT. Написать программу, которая:
- выводит текст на экран дисплея;
- по нажатию произвольной клавиши поочередно выделяет в тексте заданные слова (за-данные слова вводить с клавиатуры).

[virt]

uses crt;

Var
 ft:text;
 s:string[70];
 a,b,c:array[1..11] of string[70];
 m,n,i,j,f:integer;
 ch:byte;

begin
 clrscr;
 Assign(ft,'text700.dat');
 reset(ft);   i:=1;
 while not eof(ft) do begin
  readln(ft,s);
  a[i]:=s;
  inc(i);
 end;m:=i - 1;
 close(Ft);
 for i := 1 to m do
    writeln(a[i]);
 write('n='); readln(n);
 writeln('new word - new line');
 for i:=1 to n do readln(b[i]); f:=1; j:=1;
 repeat
  clrscr;
  c := a;
  for i:=1 to m do
     begin
        if pos(b[f],c[i])<>0 then
           begin
              insert('_',c[i],pos(b[f],c[i]));insert('_',c[i],pos(b[f],c[i])+length(b[f]))
           end;
        writeln(c[i]);
     end;
  ch:=ord(readkey);
  if ch = 0 then ch := ord(readkey);
  inc(f);
 until (ch=27) or (f>n);;
 readln;
end.

немного исправил прогу Altair'a. Единственно если например будет слово в тексте abcd ,то если искать в тексте слово bcd ,то оно найдется в этом слове.