Delphi 7

[programming]

Здравствуйте,вопрос вот в чём:я не знаю как мне сделать поэлементное считывание из файла(тип:2-х мерный массив).

КОД

program Project2;

{$APPTYPE CONSOLE}
uses
SysUtils;

Const
N=3;

Type
ARR=Array[1..N,1..N] of integer;
Var
Sum:real;
X:file of ARR;
Y:ARR;
i,j:byte;

begin
writeln('VVOD');
For i:=1 to N do
For j:=1 to N do
begin
write('A[',i,',',j,']= ');
readln(Y[i,j]);
end;

Assign(X,'D:/Massive.txt');
rewrite(X);
write(X,Y); // запись массива,который вводится, в файл.
close(X);

reset(X);

For i:=1 to N do
For j:=1 to N do

read(X[i,j],Y[i,j]); //вот здесь происходит ошибка


readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.

Не подскажете как можно сделать данное поэлементное считывание?Заранее спасибо.