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

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;

type
 Tip=^Y;
 Y=record
  inf:integer;
  link:tip
 end;
var
  FormOchered: TFormOchered;
  f,k,r:Tip;
  d,s,p,t,p2,f1:Tip;
  n:byte;
  ch:integer;
  dl:byte=0;
  mas:array [1..6]of integer=(12,4,7,3,5,2);