program matr1;
uses crt;
const n=5;
var i,j,k,x:integer;
    a:array[1..n,1..n] of integer;
    b:array[1..n] of integer;
begin
clrscr;
writeln('Исходная матрица:');
readln;
randomize;
{ввод, вывод}
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=random(10);
        write(a[i,j]:2);
      end;
  writeln;
  end;
readln;
{сортировка по строкам по убыванию}
for i:=1 to n do
for j:=1 to n-1 do
for k:=1 to n-1 do
if a[i,k][i,k+1] then
   begin
     x:=a[i,k];a[i,k]:=a[i,k+1];a[i,k+1]:=x;
   end;
writeln('Обработанная матрица:');
readln;
for i:=1 to n do
   begin
     for j:=1 to n do
         write(a[i,j]:3);
         writeln;
   end;
readln;
end.