Типа мини база данных, Текстовые файлы Опции

[Dimusik]

Интересная задачка про тачки
типа текстовый файл содержит информацию о владельцах гаражей:Ф.И.О, марка тачки, номер тачки. Нужно написать процедуру и реализацию запроса на поиск владельцев автомобилей. Список лиц удовлетворяющих запросу записать в новый текст.файл.

[Артемий]

Запись в файл:

type
 TMinB = record
  Fio,Marka,Nomer : string[255];
 end;
var
Base: TMinB;
f1: file of TMinB;
i,j,n: integer;
begin
assign(f1,'base.dat');
rewrite(f1);
writeln('Count of persons:');
readln(n);
 for i:=1 to n do begin
  readln(Base.Fio);
  readln(Base.Marka);
  readln(Base.Nomer);
  write(f1,Base);
 end;
close(f1);

А вот запрос:

type
 TMinB = record
  Fio,Marka,Nomer : string[255];
 end;
var
Base: TMinB;
f1,f2: file of TMinB;
s: string;
begin
assign(f1,'base.dat');
reset(f1);
assign(f2,'superbase.dat');
rewrite(f2);
writeln('Nomer:');
readln(s);
 while not eof(f1) do begin
  read(f1,Base);
  if s=Base.Nomer then write(f2,Base);
 end;
close(f1);
close(f2);