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 должно сохранятся в файл...но вместо значений которые я вводил с клавиатуры в файле какието посторонние символы.

[volvo]

bigglewood, ты бы во-первых, сделал хотя бы так:

person = record
  lastname: string[100]; // Ограничить длину строки
  name: string[100];
  phone: integer;
  bd: array [1..8] of integer;
end;

, а уж потом сохранял в файл...