Реализуйте базу данных с полями «Фамилия», «Имя», «Отчество», «Пол», «Год рождения» как файл типа запись

Type Baza=Record
      Name,Otchestvo,Fam:string[12];
      Pol:char;
      god:integer;
     End;
Var f:file of baza;
    x:integer;
Procedure Sozdanie;
Var i,n:integer;
    st:Baza;
Begin
    Rewrite(f);
    write('Введите кол-во записей для заполнения: ');readln(n);
    For i:=1 to n do
     Begin
      writeln('Введите информацию о ',i,'-ой записи: ');
      write('Фамилия: ');readln(st.Fam);
      write('Имя: ');readln(st.Name);
      write('Отчество: ');readln(st.Otchestvo);
      write('Год рождения: ');readln(st.God);
      write(f,st);
     End;
    write('База создана (для продолжения нажмите Enter)');
    readln;
End;
Procedure Vivod;
Var st:Baza;
Begin
    Reset(f);
    writeln('-----------------------------------------------------');
    writeln(' Фамилия    |     Имя    |  Отчество  | Год рождения');
    writeln('-----------------------------------------------------');
    While not Eof(f) do
     Begin
      read(f,st);
      writeln(st.Fam:12,'|':1,st.Name:12,'|':1,st.Otchestvo:12,'|':1,st.God:9);
     End;
    write('Вывод завершён (для продолжения нажмите Enter)');
    readln;
End;
Procedure Dobav;
Var st:baza;
Begin
    Reset(f);
    Seek(f,FileSize(f)-1);
    read(f,st);
    writeln('Введите данные о новой записи');
    write('Фамилия: ');readln(st.Fam);
    write('Имя: ');readln(st.Name);
    write('Отчество: ');readln(st.Otchestvo);
    write('Год рождения: ');readln(st.God);
    write(f,st);
    write('Новая запись добавлена (для продолжения нажмите Enter)');
    readln;
End;
Begin
    Assign(f,'in.dat');
    Repeat 
     writeln('1:Создание базы');
     writeln('2:Вывод базы');
     writeln('3:Добавление в базу');
     writeln('4:Выход');
     write('Введите желаемое действие: ');readln(x);
     Case x of
      1:Sozdanie;
      2:Vivod;
      3:Dobav;
     End;
    Until x=4;
    Close(f);
End.