Сортировка динамического списка

type ss=^obj;
    obj=record
        inf:integer;
        next:ss;
    end;

type ss=^obj;
    obj=record
        inf:integer;
        next:ss;
    end;
 
var temp,
    change: integer;
    ptr   : ss;
    first : obj;
 
begin
  { обход списка }
  REPEAT
    change := 0;
    ptr    := @first;
    while ptr=nil do
    begin
      if ptr^.next=nil then
      begin
        {сравнение со следующим элементом}  
        if ptr^.inf>ptr^.next^.inf then
        begin
          {обмениваем}
          temp           := ptr^.inf;
          ptr^.inf       := ptr^.next^.inf;
          ptr^.next^.inf := temp;
          change         := 1;
          {здесь принудительный выход из цикла}
          break;        
        end;
      end;
      {следующий элемент}
      ptr := ptr^.next;    
     end;
  {пока есть изменения}
  UNTIL change=0;  
 
  ReadLn;
end.

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type Plist=^Tlist;
Tlist=record
info:integer;
next:Plist;
end;
 
var
    n,i,j,temp, change: integer;
    s: real;
    top,p:Plist;
first : Tlist;
begin
 
     write(' n=');
     readln(n);
     writeln('vvedite a:');
     top:=nil;
     for i:=1 to n do
     begin
          new(p);
          write('a[',i,']=');
          readln(p^.info);
          p^.next:=top;
          top:=p;
     end;
 
          writeln(p^.info);
 
    begin
 Тут идет пример вашего кода 
  REPEAT
    change := 0;
    p    := @first;
    while p=nil do
    begin
      if p^.next=nil then
      begin
          
        if p^.info>p^.next^.info then
        begin
       
          temp:= p^.info;
          p^.info:= p^.next^.info;
          p^.next^.info:= temp;
          change:= 1;
        
          break;
        end;
      end;
     
      p := p^.next;
     end;
  
  UNTIL change=0;
        
  ReadLn;
а здесь нужно вывести результат сортировки на экран
 
  end.