Проверьте пожалуйста текст программы

[Dim@]

Задание: Считать из файла размерность двухмерного массива и сам массив.

Работает неправильно, не могу понять почему.Помогите найти ошибку.

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);
exit;
end;

[_Dmitry]

Что не правильно работает? Цифры в файле должны разделяться пробелами.