Не понял ошибку

[Айдар]

Такя задача надо создать типизир файл и заполнить его 2мерным массивом. но у меня коипилятор выдаёт ошибку тут

program zad;
type mas= array [1..100, 1..100] of integer;
var
i,j,n,m:integer;
f:file of integer;
a:mas;
begin
readln(m);
readln (n);
Assign(F, 'Massiv.dat');
Rewrite(F);
for i:=1 to m do
for j:=1 to n do
write (f, a[i,j]);
readln;
close (f);
end.

[sir.andrey]

Если не ошибаюсь, то надо после названия massiv поставить
расширение!

[Alex Cones]

тут

"Тут" это где?

[Айдар]

Ошибку нашел, но теперь в массив записывает чисто одни 0.

[NiCola999]

дык у вас массив не инициализирован

[sir.andrey]

Вот готовая прога!!!

program zadnica;
type
     mas=array [1..50,1..50] of integer;
var
    f:file of integer;
    a:mas;
    i,j,m,n:integer;
begin
readln (m,n);
assign(f,'massiv.dat');
rewrite (f);
randomize;
seek(f,0);
for i:=1 to m do begin
  for j:=1 to n do begin
                   a[i,j]:=random(9);
                   write(f,a[i,j]);
                   end;
                 end;
seek(f,0);
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.

Пжалста жми на весы!!!
Если че непонятно, спрашивай!