Организовать работу с файлом, содержащим сведения об автовладельцах - PascalABC.NET

type
   avto=record
     fio:string[50];
     year:integer;
     brand:string[20];
     date:integer;
     id:string[10];
   end;  
var
  a:array of avto;
  t,tmol,tstar:avto;
  f:file of avto;
  i,c:integer;
  S:string;
begin
  assign(f,'avto.dat');
  repeat
    writeln('=================================================='); 
    writeln('***            1. Ввод данных                  ***');
    writeln('***          2. поиск по фамилии               ***');
    writeln('*** 3. поиск по марке автомобиля и год выпуска ***');
    writeln('***          4. марка автомобиля               ***');
    writeln('==================================================');
    writeln('             0. ВЫХОД');
    write('Ваш выбор (цифра)');
    readln(s);
    if not FileExists('avto.dat') then begin
      writeln('Отсутствует файл БД avto.dat');
      writeln('необходимо внести данные!');
      s:='1';
    end;  
    if s='1' then begin
      if FileExists('avto.dat')then reset(f) else rewrite(f);
      repeat 
        seek(f,filesize(f));
        write('ФИО:');readln(t.fio);
        write('год рождения:');readln(t.year);
        write('марка автомобиля:');readln(t.brand);
        write('год выпуска автомобиля:');readln(t.date);
        write('госномер:');readln(t.id);
        write(f,t);
        write('Запись сохранена! Будете еще вносить данные (1-Да)?');
        readln(s);
      until s<>'1';  
      close(f);
      s:='1';
    end;
    if s='2' then begin
      reset(f);
      writeln('поиск по Фамилии');
      write('ведите фамилию:');
      readln(s);
      c:=0;
      while not eof(f) do begin
        read(f,t);
        if pos(uppercase(s),uppercase(t.fio))>0 then begin writeln(t);c:=1;end;
      end;
      close(f);
      if c=0 then writeln('Нет результатов,удовлетворяющих вашему фильтру');      
      writeln('Вывод результаттов завершен. Нажмите "enter" для выхода...');
      readln;
      s:='';
     end;
     if s='3' then begin
      reset(f);
      writeln('поиск по  поиск по марке автомобиля и год выпуска');
      write('ведите марку автомобиля:');
      readln(s);
      writeln('введите год выпуска:');
      readln(i);
      c:=0;
      while not eof(f) do begin
        read(f,t);
        if (uppercase(s)=uppercase(t.brand)) and (i >=t.date) then begin writeln(t);c:=1;end;
      end;
      close(f);
      if c=0 then writeln('Нет результатов,удовлетворяющих вашему фильтру');
      writeln('Вывод результатов завершен. Нажмите "enter" для выхода...');
      readln;
      s:='';
     end;
     if s='4' then begin
      reset(f);
      writeln('поиск по  поиск по марке ');
      write('ведите марку автомобиля:');
      readln(s);
      i:=0;c:=0;
      while not eof(f) do begin
        read(f,t);
        if (uppercase(s)=uppercase(t.brand)) then begin
          c:=c+1;
          writeln(t);
           if c=1 then begin  
             tmol:=t;
             tstar:=t;
           end else
            if t.year<tstar.year then tstar:=t;
            if t.year>tmol.year then tmol:=t;
        end;
      end;  
      close(f);
      if c=0 then writeln('Нет результатов,удовлетворяющих вашему фильтру') else
      begin
        writeln('Количество автомобилей данной марки:',c);
        writeln(' Самый старый владелец:',tstar.fio);
        writeln(' Самый молодой владелец:',tmol.fio);        
      end;
      writeln('Вывод результатов завершен. Нажмите "enter" для выхода...');
      readln;
      s:='';
     end;
     
  until s='0';
end.