Файлы. Составить программу, выбирающую фамилии владельцев и номера автомобилей по указанной марке

Const l='------------------------------------------------';
Type avto=Record
      marka:string[15];
      nomer:string[8];
      fam:string[15];
     End;
Var f:file of avto;
    i,n,k:byte;
    st:avto;
    s:string;
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);
    write('Марка автомобиля: ');readln(s);
    writeln(l);
    writeln('|      Марка    |  Номер  |  Фамилия владельца |');
    writeln(l);
    While not Eof(f) do
    Begin
      read(f,st);
      if st.marka=s then
      Begin
        writeln('|',st.marka:15,'|',st.nomer:8,'|':2,st.fam:15,'|':6);
        inc(k);
      End;
    End;
    if k=0 then writeln('Нету автомобилей с маркой ',s);
    writeln(l);
    Close(f);
    readln;
End.