Создать файл,содержащий сведения о нескольких автомобилях

Uses Crt;
type TAuto = packed record
  Mark   : string[10];  {Марка}
  Numb   : string[10]; {Номер}
  Vendor : string[15]; {ФИО владельца}
  end;
var
  Auto,AutoX : TAuto;
  fPos, n, m : Integer;
  Check : Array[0..99] of Byte;
  fAuto : file of TAuto;
 
begin
  ClrScr;
  Assign(fAuto,'avto.dat');
  {$I-}
  Reset(fAuto);
  {$I+}
  If IOResult<>0 then
    begin
      n:=0;
      ReWrite(fAuto);
      Repeat
        with Auto do
          begin
            ReadLn(Mark);
            If Mark=' ' then Break;  {Если ввели только один пробел, то это значит конец ввода данных}
            ReadLn(Numb);
            ReadLn(Vendor);
            inc(n);
          end;
         Write(fAuto,Auto);
      Until n=0;
      Close(fAuto);
      If n=0 then
        begin
          Erase(fAuto);
          WriteLn('Файл с данными не создан!');
          WriteLn('Нажмите Enter!');
          Halt;
        end;
    end;
  ClrScr;
  Seek(fAuto,0);
  Repeat  {Выводим весь файл на экран}
    Read(fAuto,Auto);
    Write(Auto.Mark,'  ');
    Write(Auto.Numb,'  ');
    WriteLn(Auto.Vendor);
  Until EOF(fAuto);
  WriteLn('===================');
  Seek(fAuto,0);  {Опять в начало файла}
  FillChar(Check,FileSize(fAuto),0);
  Repeat
    Read(fAuto,Auto);
    fPos:=FilePos(fAuto);
    n:=1;
    m:=fPos;
    While not EOF(fAuto) do
      begin
        Read(fAuto,AutoX);
        inc(m);
        If Auto.Mark=AutoX.Mark then
        If Check[m-1]=0 then
          begin
            Check[m-1]:=1; {Здесь отмечаем, что такая-то марка уже обсчитывалась}
            inc(n);
          end;
      end;
    If Check[fPos-1]=0 then
      WriteLn('Автомобилей марки  ',Auto.Mark,n:5);
    Check[fPos-1]:=1;
    Seek(fAuto,fPos);
  Until EOF(fAuto);
  Close(fAuto);
  WriteLn('Весь файл данных обработан!');
  WriteLn('Нажмите Enter!');
  ReadLn;
end.