Помогите доделать задачу!!!!

[Vincenzo]

Программа «Справочная ГАИ». Структура исходных записей: марка, год выпуска, цвет, и номер автомобиля, год регистрации в ГАИ, фамилия владельца, дата техосмотра. В результате работы программы сформировать список автомобилей, зарегистрированных не ранее заданного года, а также список владельцев, просрочивших техосмотр более чем на год. Определить владельца самого старого автомобиля и самую популярную марку автомобиля. Организовать поиск владельца автомобиля по цвету, марке и первой букве номера автомашины.

[Vincenzo]

Формироваться база должна как-то так:
Program spisok;
uses crt;
Type
gai=record
marka,cvet,fam,datateh,nomer:string ;
godvyp,godreg:integer;
end;
bd=file of gai;
Var a,c,d,h,j:string;
b,i,g:integer;
e:char;
ourbase:bd;
x:array [1..10] of gai;
begin
assign(ourbase,'j:\ourbase.fil');
rewrite(ourbase);
i:=0;
repeat
clrscr;
begin
i:=i+1;
writeln('Marka');
readln(a);
writeln('God vypuska');
readln(b);
writeln('Cvet');
readln(c);
writeln('Nomer automobilya');
readln(d);
writeln('God ragistracii v gai');
readln(g);
writeln('Familia vladelca');
readln(h);
writeln('Data tehosmotra v formate dd.mm.gggg');
readln(j);
x[i].marka:=a;
x[i].godvyp:=b;
x[i].cvet:=c;
x[i].nomer:=d;
x[i].godreg:=g;
x[i].fam:=h;
x[i].datateh:=j;
write(ourbase,x[i]);
writeln ('dlya vvoda sleduyuschego nagmite N');
e:=readkey;
end;
until
not (e='n');
close(ourbase);
end.

А как потом выбирать автомобили, владельцев и т.п. х.з
Подскажите PLS!!!!!

[Vedrus]

Вы по сложному пути пошли.
Есть специальные средства для работы с БД.

[Arkuz]

Ещё раз напиши, что на данном этапе тебе нужно сделать?

[Vincenzo]

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