Поиск строк в файле (паскаль)

[Sarumjan]

Условие: Заданный текстовый файл F, строка букв S. Получить все строки файла F, что содержат строку S.
Вот короче такая задачка, помогите решить ее.

[Sarumjan]

У меня тут есть свои наброски. Вот выкладываю:

program lab_10;
uses crt;
var f:text;
     str:string;
     s:string;
     
begin
 assign(f,'d:\f.txt');
  reset(f);

    while not eof(f) do begin
    readln(f,str);
    if pos(S,str)>0 then
    writeln(str);
    
   end;
  close(f);
end.

[Sarumjan]

Ну помогите доделать...