Поиск в *.txt по критерию

[fudzy79]

приветствую мастеров Делфи!
Подскажите советом, решаю такую задачку:
1. Сформировать файл со структурой (Марка авто, Цвет, год, страна, цена)
а. вывести список имеющихся авто
б. организовать поиск авто по критерию (марка авто или страна)
в. определить самый дорогой и самый дешевый авто.

С пунктом "а" я справился без проблем, заполнение файла организовал с помощью комбобокса(первые 4 наименования) и едита (цена). Данные файла выглядят примерно так:

BMW желтый 1997 Италия 250000
AUDI синий 2001 Германия 325
ЗиЛ белый 1999 Россия 658420
ВАЗ зеленый 2004 Англия 214000
ГАЗ желтый 2002 Япония 219000
Aston Martin красный 2003 США 365000
ЗиЛ вишня 2001 Франция 56300

Вывод списка в происходит в мемо1.
Застрял на поиске по критерию, марка авто запрашивается через inpitbox(), а вот как это привязать к текстовому файлу - недогоняю.
Это моя писанина:

procedure Tzast.RG1Click(Sender: TObject);
var
  n: integer;
  krit: string;
  marka, cvet, god, strana, cena: string;
begin
  marka:= cb1.Text;
  cvet:= cb2.Text;
  god:= cb3.Text;
  strana:= cb4.Text;
  cena:= edit1.Text;
  AssignFile(F, 'C:\basa-avto.txt');
  {$I-}
  reset(F);
  {$I+}
  if IOResult <> 0 then
    Rewrite(F);
  n:= RG1.ItemIndex;
  case n of
    0:  begin
          S:= marka + #32 + cvet + #32 + god + #32 + strana + #32 +
              cena +  #13;
          Append(F);
          Writeln(F, S);
          CloseFile(F);
          showmessage('Данные об авто приняты и записаны в базу');
          rg1.ItemIndex:= -1;
          memo1.Clear;
        end;
    1:  begin
          Reset(F);
          Memo1.Visible:= True;
        while not Eof(F) do
          begin
            Readln(F, S);
            Memo1.Lines.Add(S);
          end;
          CloseFile(F);
        end;
    2:  begin
          Memo2.Visible:= true;
          Reset(F);
          krit:= inputbox('Поиск тачки', 'Введите марку машины', marka);
              begin
                if marka = krit then
                  Memo2.Lines.Add(S)
                else
                  showmessage('Такого сарая в базе нет!');
              end;
          CloseFile(F);
        end;
    3:  begin

        end;
    4:  begin

        end;
    5:  Close;
  end;
end;

end.

Подможите советом или подскажите в каку сторону бежать

[B_N]

Для начала стоит разбивать табуляциями (хотя бы) чтобы избежать таких явлений:
Aston Martin красный 2003 США 365000

[AlDelta]

Загрузите текстовый файл в дополнительный Memo. Перебирайте строчки этого Memo применяйте к ним функцию Pos, если функция вернула не ноль - строка отвечает критерию.

Pos('Критерий', Memo1.Lines.Strings[i]);

[zetrix]

Ой... Как геморойно всё сделано...
Используйте типизированные файлы!

type 
 TAvto = record
 marka:string[25]; //марка
 color:string[20]; //цвет
 year:integer; //год
 cost:integer; //цена
 end;

var temp:TAvto;
    f:file of TAvto; //типизированный файл

...

read(f,temp); //чтение структры

write(f,temp); //запись структуры
...

Это вкрадце.

[fudzy79]

Сообщение от zetrix

Ой... Как геморойно всё сделано...
Используйте типизированные файлы!

Я бы с радостью, но использование типизированных файлов у меня в другой задаче, а в этой надо сформировать просто файл

[Stilet]

Я бы с радостью, но...

Но можно применить ченить типа TStringList, который чуть ли не специально для этого предназначен
(Если конечно препод не будет против)