Помогите найти ошибку в программе) я кажется там что-то пропустила, но уже мозг не соображает что))

uses
crt;
type
matr=array[1..10,1..10] of real;
stroka=string[30];
var
a :matr;
n, i, j, x:integer;
max:real;
sum: array [1..10] of real;

procedure vvodmatr(var a:matr;namefile:stroka;var n:integer);
var
i,j:integer;
fin:text;
begin
assign(fin,namefile);
reset(fin);
readln(fin,n);
for i:=1 to n do
begin
for j:=1 to n do
read(fin,a[i,j]);
readln(fin);
end;
close(fin);
end;

procedure summamod (var a:matr);
var
i,n,j,x,z:integer;
begin
for x:=1 to i do
for z:=1 to j do
sum[x]:=abs(sum[x]+a[x,z]);
for x:=1 to i do
if sum>max then
max:=sum[x];
end;
begin
readln (n);
vvodmatr (a, i, j);
summamod (sum, max, x);
writeln('Норма заданной матрицы',max);
end.

чтобы открыть файл (fin)