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

[Pascaler]

Я учусь работать с файлом. вот непонятно, почему выводит только 1 элемент массива , а не весь массив. В файле у меня массив например этот
3 5 6 7 8
2 3 4 5 5
3 4 5 9 4
1 7 6 4 4

program k;
const m=4;
      n=5;
var
a:array[1..m,1..n] of integer;
i,j:integer;
f:text;

begin
assign(f,'c:\massiv.txt');
reset(f);
for i:=1 to m do
begin
for j:=1 to n do read (f,a[i,j]); writeln;
writeln (a[i,j]);
close (f);
end;
end.

[Indian]

program k;
const m=4;
      n=5;
var
a:array[1..m,1..n] of integer;
i,j:integer;
f:text;

begin
assign(f,'c:\massiv.txt');
reset(f);

for i:=1 to m do
    for j:=1 to n do 
    begin
        read (f,a[i,j]); writeln;
        writeln (a[i,j]);
    end;

close (f);
end.

[ROMA2PVT]

program k;
var
a:array[1..100,1..100] of integer;
i,j,m,n:integer;
f:text;
begin
assign(f,'c:\МАССИВ.txt');
reset(f);
read(f,m);
read(f,n);
for i:=1 to m do
begin
for j:=1 to n do
begin
read (f,a[i,j]);
write(a[i,j],' ');
end;
writeln;
end;
close(f);
end.

Можно по размерности массив читать(как вариант).
4
5
3 4 5 6 -2
6 6 7 6 -4
7 8 9 9 -5
7 6 7 7 -8
вот так файлик будет выглядеть.