Сведения об автомобилях состоят из его марки, номера, года выпуска и фамилии владельца.

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.

const s='aaa.txt';
type
   lol = record
      mark,num,sur: string;
      g: integer;
      end;
var
   a: array[1..50] of lol;
   i,n,max,min: byte;
   f: text;
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;
   assign(f,s);
   rewrite(f);
   writeln(f,'самый старый автомобиль:');
   with a[min] do
      begin
         writeln(f,'фамилия: ',sur);
         writeln(f,'номер: ',num);
         writeln(f,'марка: ',mark);
      end;
   writeln(f);
   writeln(f,'самый новый автомобиль:');
   with a[max] do
      begin
         writeln(f,'фамилия: ',sur);
         writeln(f,'номер: ',num);
         writeln(f,'марка: ',mark);
      end;
   close(f);
   readln
end.

const 
   s1='bbb.txt'; //входной файл
   s='aaa.txt'; //выходной файл
type
   lol = record
      mark,num,sur: string;
      g: integer;
      end;
var
   a: array[1..50] of lol;
   i,n,max,min: byte;
   f1,f: text;
begin
   assign(f1,s1);
   reset(f1);
   while not eof(f1) do
      begin
         inc(i);
            with a[i] do
               begin
                  readln(f1,mark);
                  readln(f1,num);
                  readln(f1,g);
                  readln(f1,sur);
               end;
      end;
   close(f1);
   n:=i;
   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;
   assign(f,s);
   rewrite(f);
   writeln(f,'самый старый автомобиль:');
   with a[min] do
      begin
         writeln(f,'фамилия: ',sur);
         writeln(f,'номер: ',num);
         writeln(f,'марка: ',mark);
      end;
   writeln(f);
   writeln(f,'самый новый автомобиль:');
   with a[max] do
      begin
         writeln(f,'фамилия: ',sur);
         writeln(f,'номер: ',num);
         writeln(f,'марка: ',mark);
      end;
   close(f);
   readln
end.