var
A:array [1..4,1..8] of integer;
i,j,n,m,Nmax:byte;
max:real;
begin
writeln('Введите число строк'); readln(n);
writeln('Введите число столбцов'); readln(m);
For i:=1 to n do
For j:=1 to m do
begin
write('A[',i,',',j,']='); readln(A[i,j]);
end;
For i:=1 to n do
For j:=1 to m do
begin
max:=A[1,j];
Nmax:=A[1,1];
For i:=2 to n do
For j:=2 to m do
if A[i,j] > max then
begin
max:=A[i,j];
Nmax:=i