Текстовые файлы.Pasсal

[Gesya]

Дан текстовый файл F,строка S.Получить все строки файла(и их номера в файле),содержащие в себе в качестве фрагмента строку S.

Плмогите пожалуйста,зараннее СПАСИБО БОЛЬШОЕ!!!

[Stilet]

И в чем сложности?
Открывай файл и

while not eof(файл) do begin
 readln(файл,s);
 if pos(Фрагмент,s)<>0 then Writeln(s);  
end;

Где s - строка, куда считывание из файла.