uses crt;
const n=5;
      m=5;
var i,j,k,z:byte;
    tmp:integer;
    a:array[1..n,1..m]of integer;
Begin
 Clrscr;
 Randomize;
 For i:=1 to n do
 For j:=1 to m do
 a[i,j]:=random(50);

 For i:=1 to n do
 begin
 For j:=1 to m do
 write(a[i,j]:5);
 writeln;
 end;
 writeln;

 For i:=1 to n do
    begin
     z:=1;
    While z>0 do
      begin
      z:=0;
      k:=m;
      For j:=2 to k do
      If a[i,j]<a[i,j-1] then
         begin
         tmp:=a[i,j];
         a[i,j]:=a[i,j-1];
         a[i,j-1]:=tmp;
         z:=1;
         end;
      k:=k-1;
      end;
    end;

 For i:=1 to n do
 begin
 For j:=1 to m do
 write(a[i,j]:5);
 writeln;
 end;

End.