помогите отредактировать

[worshewitin]

...................................
private
{ Private declarations }
public
{ Public declarations }
end;
ff= file of real;
mas= array of real;
var
Form1: TForm1;
f:ff;
m:mas;
implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear;
edit1.Clear;
comboBox1.text:='имена';
end;

procedure TForm1.N5Click(Sender: TObject);
begin
close;
end;

procedure TForm1.N1Click(Sender: TObject);
var i : real;
k : integer;
begin
rewrite(f);
setlength(m,0);
k:=memo1.Lines.Count;
for i:=0 to n-1 do // тут я не до конца понял,
//как сделать чтобы записать набранные слова в memo1 в файл.
begin
setlength(m,i+1);
ComboBox1.Enabled:= false;
Writeln(f,m[i]);
closefile(f);
end;

[Anatole]

Для сохраанения введённых строк в файле проще всего воспользоваться методом memo1.Lines.SaveToFile