Record, сохранение в файл Опции

[bigglewood]

вот пишу такой код

type

 person = record
 lastname:string;
 name:string;
 phone:integer;
 bd:array [1..8] of integer;
 end;

 Pfile = file of person;

 var
 men:person;
 f:pfile;
 i:byte;
 st:string;
begin
 men.lastname := edit1.text;
 men.name :=edit2.text;
 men.phone := strtoint(edit3.text);
 for i:=1 to length(edit4.Text) do begin
 men.bd[i]:=strtoint(edit4.text[i]);
 end;

   Assignfile(F,'Spis.txt');
    Rewrite(F);
      write(F,men);
    closefile(f);
end;

по идее все что находится в списке men должно сохранятся в файл...но вместо значений которые я вводил с клавиатуры в файле какието посторонние символы.