Очередь, упорядочить...

[kapkan]

Cформировать очередь, содержащий целые числа. Упорядочить элементы очереди, не перемещая их.

Вот несколько недель уже бьюсь над этой штукой.
никак не получается упорядочить очередь.
самое лучшее что получилось - это упорядочивание всех, кроме первого...
Помогите, заранее спасибо...

t:=f;
s:=r;
While f<>s do
  begin
  d:=f;

              while d<>s do
                    if d.link.link=nil then break
                    else
                    begin
                      if (d.link.link = r) and (d.link.inf>r.inf)
                      then
                      begin
                            p:=d.link;
                            d.link:=d.link.link;
                            p2:=d.link.link;
                            d.link.link:=p;
                            d.link.link.link:=p2;
                            s:=d.link.link;

                      end;
                    if d.link.inf > d.link.link.inf then
                            begin
                            p:=d.link;
                            d.link:=d.link.link;
                            p2:=d.link.link;
                            d.link.link:=p;
                            d.link.link.link:=p2;
                            d:=d.link;
                            end
                      else d:=d.link;
                    end;
                            While t.link<>s do
        t:=t.link;
  s:=t;
  t:=f;
  end;
Memo1.clear;
while f<>nil do
Begin
memo1.lines.add(inttostr(f.inf));
f:=f.link;
 end;end;}

[Z1000000]

Упорядочить не перемещая - это , в смысле, перенаправить указатели?
Выложи весь код. В твоих d.link.link.inf - трудно разобраться ( имею в виду себя ).

[kapkan]

ну. надо указатели перекидать.
создание

procedure TFormOchered.Button4Click(Sender: TObject);
begin
edit1.SetFocus;
  if edit1.Text='' then Error(2)
  else
   begin     //if ' '
    ch:=strtoint(edit1.text);
    if dl=0 then
      begin           //f=nil then
       new(r);
       r.inf:=ch;
       r.link:=nil;
       f:=r;
       inc(dl);
      end             //f=nil then
    else
     begin          //f=nil else
 new(k);
 k.inf:=ch;
 k.link:=nil;
 r.link:=k;
 r:=k;
 inc(dl);
 end;                 //f=nil else
 memo1.lines.Add(inttostr(ch));
 edit1.Clear;
 edit2.Text:=inttostr(dl);
end;               //if ' '
end;

упорядочивание

procedure TForm1.Button2Click(Sender: TObject);
begin
d:=f;
t:=f;
s:=r;
While f<>s do
  begin
  d:=f;

              while d<>s do
                    if d.link.link=nil then break
                    else
                    begin
                      if (d.link.link = r) and (d.link.inf>r.inf)
                      then
                      begin
                            p:=d.link;
                            d.link:=d.link.link;
                            p2:=d.link.link;
                            d.link.link:=p;
                            d.link.link.link:=p2;
                            s:=d.link.link;
                      end;
                    if d.link.inf > d.link.link.inf then
                            begin
                            p:=d.link;
                            d.link:=d.link.link;
                            p2:=d.link.link;
                            d.link.link:=p;
                            d.link.link.link:=p2;
                            d:=d.link;
                            end
                      else d:=d.link;
                    end;
                            While t.link<>s do
        t:=t.link;
  s:=t;
  t:=f;
  end;
Memo1.clear;
while f<>nil do
Begin
memo1.lines.add(inttostr(f.inf));
f:=f.link;
end;

кароче f - это откуда считываем(вроде голова называется)
r - указатель на конец.
остальные просто дополнительные.