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

Const l='------------------------------------------------';
Type avto=Record
      marka:string[15];
      nomer:string[8];
      fam:string[15];
     End;
Var f:file of avto;
    i,n:byte;
    st:avto;
Begin
    Assign(f,'in.dat');Rewrite(f);
    write('Количество автомобилей: ');readln(n);
    For i:=1 to n do
    Begin
      writeln('Информация о ',i,' автомобиле');
      write('Марка: ');readln(st.marka);
      write('Номер: ');readln(st.nomer);
      write('Фамилия владельца: ');readln(st.fam);
      write(f,st);
    End;
    Reset(f);
    writeln(l);
    writeln('|      Марка    |  Номер  |  Фамилия владельца |');
    writeln(l);
    While not Eof(f) do
    Begin
      read(f,st);
      writeln('|',st.marka:15,'|',st.nomer:8,'|':2,st.fam:15,'|':6);
    End;
    writeln(l);
    Close(f);
    readln;
End.