Здравствуйте, syndicate71rus!
[code lang=pascal]uses crt;
var a:array[1..10,1..10] of integer;
m,n,i,j,k,v,u,imn,min:integer;
begin
clrscr;
repeat
writeln('Введите количество строк и столбцов от 3 до 10');
readln(m,n);
until(m in [3..10])and(n in [3..10]);
{рандомный ввод практически не даст упорядоченных строк}
writeln('Введите построчно элементы матрицы,');
writeln('в том числе строки упорядоченные по возрастанию или по убыванию');
for i:=1 to m do
for j:=1 to n do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
clrscr;
writeln('Введенная матрица');
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j]:5);
writeln;
end;
k:=0; {есть ли упорядоченные строки}
for i:=1 to m do
begin
v:=0;{кол. возрастаний}
u:=0; {кол. убываний}
for j:=2 to n do
if a[i,j]>a[i,j-1] then inc(v)
else if a[i,j]<a[i,j-1] then inc(u);
if v=n-1 then imn:=a[i,1]{если все возрастают, минимальный в строке первый}
else if u=n-1 then imn:=a[i,n]; {если все убывают, минимальный в строке последний}
if((v=n-1)or(u=n-1))and(k=0) then {если соблюдается условие и это первая строка}
begin
min:=imn; {ее минимальный есть минимальный в матрице}
k:=1; {далее строка не первая}
end
else if imn<min then min:=imn;{если не первая и минимум в ней меньше то он минимум матрицы}
end;
if k=0 then write(k)
else write('Минимальный в упорядоченных строках=',min);
readln
end.[/code]
если все же хотите рандомный ввод, замените ввод так
[code lang=pascal]randomize;
writeln('Матрица');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(20);
write(a[i,j]:3);
end;
writeln;
end;[/code]