Ошибка "Object reference not set to an instance of an object" при создании списка

type uk = ^info;
     info = record
              data: integer;
              next: uk;
             end;
var p: uk;
    x: integer;
    
function min(zac: uk; x:integer):uk; {ищет первое число, которое больше чем х}
var s:uk;                            {возвращает указатель на пердыдущий}
begin
s:=zac;
if s^.next <> nil then
 begin
 if s^.next^.data < x then min(s^.next,x)
 else min:=s;
 end
else min:=s;
end;
 
procedure vloz(zac:uk; x: integer); 
var m,q,s:uk;
begin
new(m);
m:=zac;
new(q); q:=min(m,x);  
if m^.data > x then  {для вложения в начало}
 begin
 new(s); s^.data:=x;
 s^.next:=q;
 p:=s;
 end
else begin
 if q^.next <> nil then     { !!!!! Ошибка времени выполнения: System.NullReference}
  begin                     {Exception: Object reference not set to an instance of an object.}
  new(s); s^.data:=x;
  s^.next:=q^.next;            {для вложения в середину}
  q^.next:=s;
  end
else 
 begin                      {если число больше остальных}
 new(q^.next);              {вложит его в конец}
 q^.next^.data:=x; 
 end;
end;
end;
 
procedure vypis(zac:uk); {выписывает последовательность}
 begin
  if zac = nil then exit;
  write(zac^.data, ' ');
  vypis(zac^.next);
 end;
 
 
begin
new(p); readln(x); p^.data:=x;
while eof do
 begin
 readln(x); vloz(p,x); 
 end;
vypis(p);
end.

function min(zac: uk; x:integer):uk; {ищет первое число, которое больше чем х}
var s:uk;                            {возвращает указатель на пердыдущий}
begin
s:=zac;
if s^.next <> nil then
 begin
 if s^.next^.data < x then min :=min(s^.next,x) // <--- результат кто возвращать будет?
 else min:=s;
 end
else min:=s;
end;