Смысл программы в сортировке каждой строки матрицы по очереди от 1-й к m-ной. uses CRT;
{Объявляем исходные данные}
var
matr: array [1..100, 1..100] of integer;
m, n, buf, i, j, l: integer;
BEGIN
{очищаем экран}
clrscr;
{ввод исходных данных}
WriteLn ('Введите размер матрицы');
ReadLn (m, n);
WriteLn ('Введите элементы матрицы');
for i:=1 to m do
for j:=1 to n do
read (matr [i, j]);
{перебираем строки матрицы от 1 до m}
for j:=1 to m do
begin
{сортируем числа в j-й строке методом обмена}
for i:=2 to n do
for l:=1 to i-1 do
{сравниваем соседние числа в j-й строке, если очередное число меньше предидущего, меняем их местами}
if matr [j, l]>matr[j, i] then
begin
buf:=matr[j, l];
matr[j, l]:=matr[j, i];
matr[j, i]:=buf;
end;
end;
{вывод отсортированной матрицы на экран}
WriteLn ('Отсортированная матрица');
for i:=1 to m do
begin
for j:=1 to n do
Write (matr[i, j], ' ');
writeln;
end;
readkey;
END.