var    
a:array [1..100,1..100] of integer;
i,j,m,n:integer;
max,k:real;
begin 
writeln ('Введите кол-во строк массива');
readln (n);
writeln ('Введите кол-во столбцов массива');
readln (m);
for i:=1 to n do
for j:=1 to m do a[i,j]:=random (500)+5;
writeln('Ваш двумерный массив' );
for i:=1 to n do
begin
  for j:=1 to m do
  write(' ',a[i,j]:n);
  writeln;
end;

for i:=1 to n do begin
max:=a[i,j];
for j:=1 to m do begin

if (max>a[i,j]) then k:=max else max:=a[i,j];
end;
writeln ('Максимальный элемент в',' ',i,' ','строчке',' ',k);
end; 



end.