Сформировать файл об автолюбителях

TYPE avto=record
  nomer,fam,marka,cvet:string;
  probeg:0..maxint;
  end;
var g:file of avto;
    s:avto;
    i,n,k,max:integer;
    x,m,l:string;
begin
 assign(g,'g');
 rewrite(g);
 write('Введите количество сведений об автолюбителях: ');
 readln(n);
 writeln;
 writeln('Введите сведения');
 for i:=1 to n do
 begin
 writeln;
 writeln(i,' сведение');
 with s do
  begin
   write('Фамилия: '); readln(fam);
   write('Марка авто: '); readln(marka);
   write('Цвет: '); readln(cvet);
   write('Номер: '); readln(nomer);
   write('Пробег(км): '); readln(probeg);
   write(g,s);
  end;
 end;
 writeln;
 
{1}
write('Марка :');readln(x);
writeln('Фамилия владельца и номер авто:');
reset(g);
while not eof(g) do
begin
read(g,s);
with s do
if (marka=x) then writeln(fam,':',nomer,';');
end;
writeln;
 
{2}
k:=0;
writeln('Количество авто каждой марки:');
reset(g);
while not eof(g) do
read(g,s);
m:=s.marka;
begin
for i:=1 to n do
begin
with s do
if (marka[i]=m) then k:=k+1;
end;
writeln('Марка: ',m,' ; Количество: ',k);
end;
writeln;
 
{3}
max:=-maxint;
writeln('Автомобиль с максимальным пробегом:');
reset(g);
while not eof(g) do
begin
read(g,s);
with s do
if probeg>max  then
begin
max:=probeg;
l:=marka;
end; end;
writeln(l,';');
 
{4}
k:=0;
writeln('Есть ли сведения о Мерседесе 12-45 желтого цвета: ');
reset(g);
while not eof(g) do
begin
read(g,s);
with s do
if (marka='Мерседес  12-45') and (cvet='Желтый') then k:=k+1;;
end;
if k>0 then writeln('Есть !')
else
begin
writeln('Нету , допишите информацию в файл : ');
Seek(g,FileSize(g));
 write('Введите количество добавляемых сведений об автолюбителях: ');
 readln(n);
 writeln('Введите сведения');
 for i:=1 to n do
 begin
 writeln(i,' сведение');
 with s do
  begin
   write('Фамилия: '); readln(fam);
   write('Марка авто: '); readln(marka);
   write('Цвет: '); readln(cvet);
   write('Номер: '); readln(nomer);
   write('Пробег(км): '); readln(probeg);
   write(g,s);
  end;
 end;
 end;
 writeln;
close(g);
END.