Безтиповые файлы! делфи

[child]

Программа идет, но при нажатии на первую кнопку выдает ошибку is not a valid integer value, а при нажатии на вторую- файл не найден!! вот программа, подскажите что не так и как исправить :


implementation

{$R *.dfm}
var f:file; s:string;
a:array[1..3,1..3] of integer;
procedure TForm1.Button1Click(Sender: TObject);
var f:file;
i,j,n:integer;
begin
n:=StrToInt(memo1.Lines[0]);
for i:=1 to n do
for j:=1 to n do
a[i,j]:=StrToInt(memo1.Lines[n*(i-1)+j]);
for i:=1 to n do begin s:='';
for j:=1 to n do s:=s+IntToStr(a[i,j]);
Memo1.Lines.Add(s); end;
assignfile(f,'notype.dat');
rewrite(f,1); blockwrite(f,a,sizeof(a));
closefile(f);
end;

procedure TForm1.Button2Click(Sender: TObject);
var f:file; s:string; i,j,n:integer;
begin
assignfile(f,'notype.dat');
reset(f,1);
blockread(f,a,filesize(f));
closefile(f);
n:=sizeof(a);
Memo2.Lines.Add(IntToStr(n));
for i:=1 to n do begin s:='';
for j:=1 to n do s:=s+IntToStr(a[i,j]);
Memo2.Lines.Add(s);
end;
end;

end.