Процедура: Для заданных матриц найти значение наибольшего за модулем элемента и определить его индексы

Program Primer;
var u,v: array [1..7,1..7] of integer;
min1,min2, min3, min4, i,j, p,x:integer;
 
procedure poisk;
begin
min1:=1; min2:=1; min3:=1; min4:=1;
for i:=1 to 7 do
for j:=1 to 7 do
begin
if abs(u[i,j])>abs(u[min1,min2]) then begin min1:=i; min2:=j;  end;
if abs(v[i,j])>abs(v[min3,min4]) then begin min3:=i; min4:=j;  end;
end;
 
writeln('Naibolshii po modulu element v massive U: [',min1,',',min2,']=',u[min1,min2]);
writeln('Naibolshii po modulu element v massive V: [',min3,',',min4,']=',v[min3,min4]);
if abs(u[min1,min2])>abs(v[min3,min4]) then writeln('Naibolshii po modulu element: [',min1,',',min2,']=',u[min1,min2])
else writeln('Naibolshii po modulu element: [',min3,',',min4,']=',v[min3,min4]);
end;
 
begin
 
writeln ('Vvedite massiv U ');
for i:=1 to 7 do
for j:=1 to 7 do
begin
write ('U[',i,',',j,']=');
readln (U[i,j]);
end;
 
writeln('Vvedite massiv V ');
for i:=1 to 6 do
for j:=1 to 6 do
begin
write ('v[',i,',',j,']=');
readln (v[i,j]);
end;
 
writeln('Massiv U');
for i:=1 to 7 do begin
for j:=1 to 7 do
write(u[i,j]:3);
writeln;
end;
 
writeln('Massiv V');
for i:=1 to 6 do begin
for j:=1 to 6 do
write(v[i,j]:3);
writeln;
end;
 
poisk;
 
end.