Проблема с выводом в типизированный файл

unit laba5s;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Mask, StdCtrls, Buttons;
 
type
  TMain = class(TForm)
    Save: TButton;
    dores: TButton;
    open: TButton;
    create: TButton;
    BitBtn1: TBitBtn;
    add: TButton;
    name: TEdit;
    maxa: TMaskEdit;
    minh: TMaskEdit;
    sex: TMaskEdit;
    maxh: TMaskEdit;
    height: TMaskEdit;
    age: TMaskEdit;
    minw: TMaskEdit;
    weight: TMaskEdit;
    mina: TMaskEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    maxw: TMaskEdit;
    Label11: TLabel;
    Label12: TLabel;
    Label8: TLabel;
    result: TMemo;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    procedure FormCreate(Sender: TObject);
    procedure createClick(Sender: TObject);
    procedure openClick(Sender: TObject);
    procedure addClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
type
  Tinfo = record
  s:string[1];
  n:string[12];
  a:integer;
  h:integer;
  w:integer;
  amin:integer;
  amax:integer;
  hmin:integer;
  hmax:integer;
  wmin:integer;
  wmax:integer;
  end;
var
  Main: TMain;
  men,women:array[1..20] of Tinfo;
  ft: TextFile;
  fman:file of Tinfo;
  fwoman:file of Tinfo;
  nman,nwoman:integer;
  FileNameZ:string;
implementation
 
{$R *.dfm}
 
 
procedure TMain.FormCreate(Sender: TObject);
begin
name.Text:='';
result.Clear;
add.Hide;
nman:=0;nwoman:=0;
end;
 
procedure TMain.createClick(Sender: TObject);
begin
 OpenDialog1.Title :='Создать новый файл';
 if OpenDialog1.Execute then
    begin
     FileNameZ:= OpenDialog1.FileName;
     AssignFile(fman, FileNameZ);
     Rewrite(fman);
    end;
  add.Show;
end;
 
procedure TMain.openClick(Sender: TObject);
begin
   if OpenDialog1.Execute then
      begin
       FileNameZ:= OpenDialog1.FileName;
       AssignFile(fman, FileNameZ);
       Reset(fman);
        end;
       while not eof(fman) do begin
        nman:=nman+1;
        Read(fman,men[nman]);
         end;
       add.Show;
end;
procedure TMain.addClick(Sender: TObject);
begin
 nman:=nman+1;
 with men[nman] do begin
  n:=name.Text;
  a:=StrToInt(age.Text);
  h:=StrToInt(height.Text);
  w:=StrToInt(weight.Text);
  s:=sex.Text;
  amin:=StrToInt(maxa.Text);
  amax:=StrToInt(maxa.Text);
  hmin:=StrToInt(minh.Text);
  hmax:=StrToInt(maxh.Text);
  wmin:=StrToInt(minw.Text);
  wmax:=StrToInt(maxw.Text);
  end;
 Write(fman,men[nman]);
end;
 procedure TMain.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
 CloseFile(fman);
 end;
end.