Program p166_8c;
uses p166_8a, crt;
var a:array[1..100]of Fractie;
    u:Fractie;
    i,j,n:byte;

begin
 ClrScr; Randomize;
 Write('n=');readln(n);
 for i:=1 to n do AttrF(a[i],Random(100)+1,Random(100)+1);
 for i:=1 to n-1 do for j:=i+1 to n do begin
  if CompF(a[i],a[j])>1 then begin
   u:=a[i];a[i]:=a[j];a[j]:=u;
  end;
 end;
 for i:=1 to n do Write(FrStr(a[i],false):6,', ');

 ReadKey;
end.