турбо паскаль

[Рида]

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

type
lol = record
mark,num,sur: string;
g: integer;
end;
var
a: array[1..50] of lol;
i,n,max,min: byte;
begin
write('количество сведений: ');
readln(n);
for i:=1 to n do
with a[i] do
begin
write('марка: ');
readln(mark);
write('номер: ');
readln(num);
write('год выпуска: ');
readln(g);
write('фамилия: ');
readln(sur);
end;
max:=1;
min:=1;
for i:=1 to n do
begin
if a[i].g>a[max].g then max:=i;
if a[i].g<a[min].g then min:=i;
end;
writeln('самый старый автомобиль:');
with a[min] do
begin
writeln('фамилия: ',sur);
writeln('номер: ',num);
writeln('марка: ',mark);
end;
writeln;
writeln('самый новый автомобиль:');
with a[max] do
begin
writeln('фамилия: ',sur);
writeln('номер: ',num);
writeln('марка: ',mark);
end;
readln
end.


___________
Название темы не соответствует правилам форума

Название темы должно адекватно отражать суть решаемой задачи/проблемы.


Ну и код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)

Модератор.