Создать программу чтения из файла

[Sepherot]

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

[Serge_Bliznykov]

язык программирования?

var f : Text;
   s : string;
begin
  Assign(f,'ИмяФайла.txt');
  Reset(f);
  while Not Eof(f) do begin
    Readln(f, s);
    if pos('table', s)>0 then WriteLn(s);
  end;
  Close(f);
  readln;
end.

[Sepherot]

Извиняюсь, паскаль