Работа с файлами

[Dim@]

Это программой-то и не назовешь!:Считать двухмерный массив из одного файла и записать в другой.
А работает неправильно!

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
AssignFile(F,OpenDialog1.FileName);
{$I-}
Reset(F);
{$I+}
If IOResult=0 then
begin
Readln(F,n,m);
for i:=0 to n-1 do
begin
for j:=0 to m-1 do
read(f,a[i,j]);
readln(F);
end;
end else
begin
ShowMessage('Net takogo File');
exit;
end;
CloseFile(F);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if SaveDialog1.Execute then
AssignFile(F,SaveDialog1.FileName);
Rewrite(f);
writeln(f,n,' ',m);{Записать размерность}
begin
for i:=0 to n-1 do {Записать матрицу}
begin
for j:=0 to m-1 do
write(f,a[i,j],' ');
writeln(f);
end;
end;
writeln(f);
CloseFile(F);
end;
end.

Если знаете, посоветуйте какую-нибудь книгу про файлы.

[north]

А что именно непрвильно работает?