type
vlad =record
famil:string;
adres:string;
marka:string;
regnom:string;
god:longint;
end;
var
i,k,min,j:integer;
a:array[1..5] of vlad;
begin
writeln('Введите кол-во записей');
readln(k);
for i:=1 to k do
begin
writeln('Введите фамилию ',i,'-го');
readln(a[i].famil);
writeln('Введите адрес ',i,'-го');
readln(a[i].adres);
writeln('Введите марку ',i,'-го');
readln(a[i].marka);
writeln('Введите рег.номер ',i,'-го');
readln(a[i].regnom);
writeln('Введите год выпуска ',i,'-го');
repeat
readln(a[i].god);
until (a[i].god<=2000) and (a[i].god>=1900);
end;
min:=2000;
for i:=1 to k do
if a[i].god<min then begin min:=a[i].god;j:=i; end;
writeln('Самое старое авто у ' a[j].famil);
end.