Здравствуйте, bodya!
[code lang=pascal]type mtr=array[1..10,1..10] of integer;
procedure vvod(var a:mtr;var n,m:integer;p,t:integer);
var i,j:integer;
begin
repeat
writeln('Введите количество строк и столбцов от 2 до 10');
readln(n,m);
until(n in [2..10])and(m in [2..10]);
repeat
writeln('Введите границы диапазона целых чисел p<t');
readln(p,t);
until p<t;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=p+random(t-p+1);
end;
procedure print(a:mtr;n,m:integer;s:string);
var i,j:integer;
begin
writeln(s);
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:3);
writeln;
end;
end;
procedure max(a:mtr;n,m:integer;var mx:integer);
var i,j:integer;
begin
mx:=a[1,1];
for i:=1 to n do
for j:=1 to m do
if a[i,j]>mx then mx:=a[i,j];
end;
var a:mtr;
m,n,p,t,mx:integer;
begin
randomize;
vvod(a,n,m,p,t);
print(a,n,m,'Исходная матрица');
max(a,n,m,mx);
writeln('Максимальный элемент=',mx);
end.[/code]