помогите пожалуйста я что то не понимаю в чём тут ошибка? я уже всё перепробовал

[worshewitin]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, ExtCtrls, ComCtrls;

type
TForm1 = class(TForm)
OpenDialog1: TOpenDialog;
MainMenu1: TMainMenu;
N1: TMenuItem;
Memo1: TMemo;
Panel1: TPanel;
StatusBar1: TStatusBar;
Edit1: TEdit;
ComboBox1: TComboBox;
Label1: TLabel;
Label2: TLabel;
Timer1: TTimer;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type ff= file of char;
mas= array of integer;
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 k,i: integer;
begin
ComboBox1.Enabled:= false;
Assign(f,'проба.txt'); //здесь выдаёт ошибку
rewrite(f);
k:=memo1.Lines.Count;
for i:=0 to k-1 do
writeln(f,memo1.Lines.saveToFile);
closefile(f);
end;

[Костя КС]

AssignFile(f,'проба.txt');