Текстовый файл Опции

[LeoDaVinci]

Как вывести на экран те строки текстого файла, которые сдержат данное слово?

procedure Vivod(var f:tf);
var
  x,s:st;
begin
  reset(f);
  writeln('Vvedite slovo:');
  readln(s);
  while not EOF(f) do
  [Вот тут у меня ступор ] 
  read(f,x);
  write(x);

  closefile(f);
end;

М

теги... мисс_граффити

Сообщение отредактировано: мисс_граффити - 25.02.2007 0:14