Как сделать выборку, из txt Опции

[conqu]

Всем доброго времени суток,
Ситуация: есть текстовый файл, в нём записан каталог товаров в виде: строка (несколько слов) - название, на следующей строке - цена, ниже пустая строка и следующий товар в том же формате.
Нужно реализовать такую вещь: пользователь вводит слово, по нему осуществляется поиск и делается выборка тех товаров, в названии которых встречается искомое слово.
Вопрос: подскажите плз, как это сделать, у меня проблема с тем, что названия товаров состаят из 3-7 слов, везде по разному + не знаю, как организовать разделение товаров для скрипта, как вообще осуществляется перемещение указателя на следующую строчку, при чтении из файла. Иными словами: как сделать так, чтобы если в строке встречается заданное слово, скрипт её выводил + следующую, потом проскакивал пустую и делал поиск в следующей строке.
Заранее благодарен.

[conqu]

Нет, я оттуда брал, может случайно что-то менял, вот копия из бэкапа, работает, проверял.

Program TTP;

USES CRT;

var
 f: text;
 name,s,query,price: string[80];



BEGIN
 assign(f,'n:\ttp.txt');
  reset (f);

  Write('query=');
  Readln(query);

  while not EoF(f) do
   begin

     readln(f,s);
    if pos(query, s) > 0 then
      begin
         readln(f,price);
         writeln ('found:',s,'->',price);
      end
    else readln(f);

    readln(f);
   end;

end.

База(кусок):
ttp.txt :
Macromedia Flash 8 работа с анимацией и графикой
470

Macromedia Flash 8 Action Script официальное руководство
709

PHP 5 самое полное руководство
402

Л.Н. Толстой Война и мир
660

Л.Н. Толстой Анна Каренина
760

М. Булгаков Собачье сердце
350

М. Булгаков Мастер и Маргарита
350

А.П. Чехов Собрание сочинений
350

М. Горький Собрание сочинений
350

А.Н. Толстой Собрание сочинений
350