Простые списки. непонятно, непонятно как из упорядочить в обратном порядке Опции

[noskovgleb]

program p2;
   uses crt;

   type
      TPtr  = ^TElem;
      TElem = record
         SPG  : char;
         link : TPtr;
      end;
   var
      j         :integer;
      i         :byte;
      BegQ,EndQ :TPtr;
      SG        :char;
   {-----------BEGIN PROCEDURE-------------}
   Procedure AddCh(var Ch: char);
   var p :TPtr;
   Begin
      new(p);
      p^.SPG := ch;
      p^.link:= nil;
      if EndQ = nil {Ґб«Ё ᮧ¤ Ґвбп ЇҐаўл© н«Ґ¬Ґ­в ®зҐаҐ¤Ё}
         then BegQ := P
                    {Ґб«Ё ᮧ¤ Ґвбп ®зҐаҐ¤­®© н«Ґ¬Ґ­в ®зҐаҐ¤Ё}
         else EndQ^.link:= p;
      EndQ := p;
   End;
   {---------------------------------------}
   procedure GetDelEl( var Ch:char);
   var
      P: TPtr;
   Begin
      ch  := BegQ^.SPG;
      p   := BegQ;
      BegQ:= P^.link;
      if BegQ = nil {Ґб«Ё г¤ «пҐвбп Ї®б«Ґ¤­Ё© н«Ґ¬Ґ­в ®зҐаҐ¤Ё}
         then EndQ := nil;
      dispose(p);
   End;
   {------------END PROCEDURE--------------}

BEGIN
   clrscr;
   j    := 176;
   BegQ := nil;
   EndQ := nil;
   for i:=176 to 223 do
      AddCh(char(i));
   writeln('“¤ «Ґ­ЁҐ ®зҐаҐ¤Ё б а бЇҐз вЄ®© §­ зҐ­Ё© ҐҐ н«Ґ¬Ґ­в®ў');
   while BegQ <>nil do
      begin
         GetDelEl(SG);
         write(j,'=',SG);
         inc(j)
      end;
   readln;
END.

Добавлено через 1 мин.
собственно вопрос задан... помогите, объясните мне...