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

program file1;
var f,f1:text;
n,fio,marka:string[10];
nomer,god,k,s:integer;
srvoz:real;
begin
writeln('vvedite marky');
readln(n);
assign(f,'isx.txt');
reset(f);
assign(f1,'got.txt');
rewrite(f1);
k:=0;
s:=0;
while not EOF(f) do
begin
k:=k+1;
s:=s+god;
readln(f,fio,marka,god,nomer);
if marka=n then begin
writeln(f1,fio,god,nomer);
end;
end;
srvoz:=god/k;
writeln(f1,'srvoz=',srvoz:5:2);
writeln('srvoz=',srvoz:5:2);
writeln(fio, god, nomer);
end;

s:=s+god;

s:=s+god;
readln(f,fio,marka,god,nomer);

program file1;
type
 oldest = record
  fio,marka,god,nomer:integer;
 end;
var f:text;
n,fio,marka:string[10];
nomer,oldest,god,k,s:integer;
srvoz:real;
oldestCar:oldest;
begin
writeln('vvedite marky');
readln(n);
assign(f,'isx.txt');
reset(f);
k:=0;
s:=0;
OldestCar.god:=32767;
while not EOF(f) do
begin
readln(f,fio,marka,god,nomer);
if  god < OldestCar.god then  begin
    OldestCar.fio:=fio ;
    OldestCar.god:=god ;
    OldestCar.marka:=marka ;
    OldestCar.nomer:=nomer ;
end;
if marka=n then begin
    inc(k);
    s:=s+god;
    writeln('owner fio:',fio,'release year:',god,'car id: ',nomer);
end;
end;
close(f);
srvoz:=s/k;
writeln(f1,'srvoz=',srvoz:5:2);
writeln('srvoz=',srvoz:5:2);
writeln('The OLDEST car EVER !');
writeln('owner fio:',oldestCar.fio);
Writeln('release year:',OldestCar.god);
Writeln('car id: 'OldestCar.nomer);
Writeln('car brand: ',OldestCar.marka);
readln;
end;