Выводит на экран введенное слово с клавиатуры!!

[Sbobukh]

Напишите программу, которая считывает текст из файла и выводит на экран только те строки, которые содержат введенное с клавиатуры слово.

[ZX Spectrum-128]

While not eof(f) do
  Begin
    Readln(f,s);
    If Pos(svved,s)<>0 then
      Writeln(s);
  End;