Паскаль, файлы, задачка

[LikFiR]

Возникли затруднения с решением задачи: Ввести с клавы квадрат. матрицу X(m,m)(m<=10) Определить в ней максимальные эл-ты в каждой строчке и записать вычисленные значения. Определить мин. компоненту в файле F1. Выдать на печать матрицу X, файл, минимальный компонент и её номер.
Вот написанная программа, но она выдаёт ошибку 103, пытался править и в конце концов запутался. Плиз помогите))
program l2;
const
m1=10;
type
mas=array [1..m1,1..m1] of integer;
fl=file of integer;
var
f:fl;
X:mas;
m,i,j,max,min,imin,a:integer;
begin
write ('m=');
read(m);
for i:=1 to m do
for j:=1 to m do
read (X[i,j]);
assign(f,'c:\1.dat');
begin
rewrite (f);
for i:=1 to m do
begin
max:=-100;
for j:=1 to m do
if X[i,j]>max then
a:=X[i,j];
write(f,a);
end;
close(f);
end;
min:=100;
imin:=-1;
reset(f);
while not eof(f) do
begin
read(f,a);
if a<min then
begin
min:=a; write('min=',min); writeln;
imin:=filepos(f)-1; write('N=',imin); writeln;
end;
close(f); end;
begin
for i:=1 to m do
begin
for j:=1 to m do
write(X[i,j]:7);
writeln;
end;end;end.

[niko7007]

Примено этот вопрос обсуждали тут уже:
http://www.expertstime.ru/forum/viewforum.php?f=31