помогите найти ошибку в программе (ПАСКАЛЬ)

const N=5;
var A: array [1..N,1..N] of integer;
i,j,h,p,max,u,g: integer;
begin
u:=1;
for i:=1 to N do
begin
for j:=1 to N do
A[i,j]:=random(50);
end;

for i:=1 to N do
begin
for j:=1 to N do
write(a[i,j]:3);
writeln;
end;
writeln;

for i:=1 to N do
begin
for j:=1 to N do
begin
u:=u;
max:=a[i,1];
h:=a[i,1];
g:=a[i,j];
if g<0 then g:=g*(-1);
if max