program sort;
const n = 10;
var i,z,t: integer;
x: array [1..n] of integer;

procedure Masswr (var x: array of integer);
const n = 10;
var bab: integer;
begin
bab:=1;
repeat
begin
write (x[bab]);
write (' ');
bab:=bab+1;
end
until bab > n;
end;
procedure Massrandom (var x: array of integer);
const n = 10;
var j: integer;
begin
j:=1;
repeat
begin
x[j]:=random(100);
j:=j+1;
end
until j > n;
end;
begin
i:=n;
z:=1;
massrandom(x);
while i>1 do
  begin
    while z<i do
      begin
       if x[z] > x[i] then
         begin
           t:= x[z];;
           x[z]:= x[i];
           x[i]:=t;
         end;
       z:=z+1;
      end;
   z:=0;
   i:=i-1;
   end;
   masswr (x);
   end.