Матрица с целыми элементами.

Unit MyUn;
Interface
 Type
 matr=array[1..4,1..4] of integer;
 //const m=4; n=4;
Var
p:integer;
Procedure Vvod(var a:matr;m,n:integer);
Procedure Obr(a:matr;m,n,max,t:integer;var s:longint;var p:longint);
Procedure Vyvod(a:matr;m,n,i,j:longint; max:real);
Implementation
 
Procedure Vvod(var a:matr;m,n:integer);
var
i,j:integer;
begin
 
randomize;
for i:=1 to m do
for j:=1 to n do
begin
a[i,j]:=random(20);
 write(a[i,j]:5);
 end;
end;
Procedure Obr(a:matr;max,t,m,n:integer; var s:longint; var p:longint);
var
i,j:integer;
begin
for i:=1 to m do
for j:=1 to n do
max:=abs(a[1,1]);
begin
if a[i,j]>max then
t:=a[i,j];
a[i,j]:=max;
max:=t;
end;
begin
for i:=1 to m do
for j:=1 to n do
a[i,j]:=a[i,j] div max;
end;
end;
Procedure Vyvod(a:matr;m,n,i,j:longint; max:real);
begin
writeln('otvet:');
for i:=1 to m do
for j:=1 to n do
readln;
end;
end.

[quote=Jereme;155794]
for i:=1 to m do 
for j:=1 to n do 
max:=abs(a[1,1]);
 begin
 if a[i,j]>max then t:=a[i,j];
a[i,j]:=max; 
max:=t; 
end; [/quote]

max:=abs(a[1,1]);
for i:=1 to m do 
for j:=1 to n do 
 if abs(a[i,j])>abs(max) then max:=a[i,j];
end;

Procedure Vyvod(a:matr;m,n,i,j:longint; max:real);
begin
writeln('otvet:');
for i:=1 to m do
for j:=1 to n do
readln;
end;