В типизированном файле хранится информация о машинах.

uses crt;
const n=4; {Количество данных о машинах}
type avto=record
          mar:string[20];
          god:word; {Год выпуска}
          pri:word; {Цена}
          end;
var f:file of avto;
    zp:avto;
    i:word;
    c:char;
begin
clrscr;
assign(f,'avto');
rewrite(f);
writeln('Введите данные о ',n,'  марках автомобилей');
i:=0;
repeat
i:=i+1;
writeln('Автомобиль ',i);
write(' Марка автомобиля: ');readln(zp.mar);
write(' Год выпуска: ');readln(zp.god);
write(' Стоимость: ');readln(zp.pri);
write(f,zp);
until (i=n);
clrscr;
reset(f);
writeln('Сведения об автомобилях':40);
writeln;
while not EOF(f) do
   begin
   read(f,zp);
write(' Марка автомобиля: ',zp.mar);
write(' Год выпуска: ',zp.god);
write(' Стоимость: ',zp.pri);
writeln;
  end;
close(f);
readln;
end.

uses crt;
type avto=record
          mar:string[20];
          pri:integer;
          god:integer;
          end;
var f:file of avto;
    zp:avto;
    mn:word;
    nam:string;
begin
clrscr;
assign(f,'AVTO');
reset(f);
write('Самый дешевый автомобиль*: ');
mn:=maxint;
while not eof(f) do
 begin
  read(f,zp);
  if zp.pri<mn then
   begin
    mn:=zp.pri;
    nam:=zp.mar;
   end;
 end;
writeln(nam);
close(f);
reset(f);
write('Самый дорогой автомобиль*: ');
mn:=0;
while not eof(f) do
 begin
  read(f,zp);
  if zp.pri>mn then
   begin
    mn:=zp.pri;
    nam:=zp.mar;
   end;
 end;
writeln(nam);
close(f);
reset(f);
readkey;
end.