procedure sortirovka(var e : qf);
var list,list0,min,h: group;
     ind             : boolean;
     i,j:integer;
begin
     Reset(e);
     Repeat
           ind := true;
           Seek(e,0);
           Read(e,list0);
           While not EOF(e) do
                 begin
                   Read(e,list);
                         writeln(z,') ',list0.cena,' - ',list.cena);
                         z:=z+1;
                         if List.cena < List0.cena then
                      begin
                         Seek(e,filepos(e) - 2);  
                         Write(e,list);

                         Write(e,list0);
                           ind := false;
                      end
                      else list0 := list;
               end;
     Until ind;
     close(e);
end;