Добавить в упорядоченный список новый элемент, сохранив упорядоченность списка

type tList=^pList;pList=record n:String;p,x:tList;end;
 
var
  l,x,c : tList;
begin
  New(l);l^.p:=nil;l^.n:='Автостопом по галактике';x:=l;
  New(x^.x);x^.x^.p:=x;x:=x^.x;x^.n:='Властелин колец';
  New(x^.x);x^.x^.p:=x;x:=x^.x;x^.n:='Гордость и предубеждение';
  New(x^.x);x^.x^.p:=x;x:=x^.x;x^.n:='Тёмные начала';x^.x:=nil;
  
  x:=l;WriteLn('исходный список:');while x<>nil do begin WriteLn(x^.n);x:=x^.x;end;WriteLn;
  
  New(c);c^.n:='Джейн Эйр';
  if c^.n<l^.n then begin c^.p:=nil;c^.x:=l;l^.p:=c;l:=c;end
  else begin x:=l;while(x^.x<>nil)and(x^.x^.n<c^.n)do x:=x^.x;
    if x^.x=nil then begin x^.x:=c;c^.p:=x;end else
      begin x^.x^.p:=c;c^.x:=x^.x;x^.x:=c;c^.p:=x;end;
  end;
 
  x:=l;WriteLn('новый список:');while x<>nil do begin WriteLn(x^.n);x:=x^.x;end;WriteLn;
end.

type EXS=^S;
S=record 
Tinf:String;
Data:String;
next,x:EXS;
end;
var u:EXS;
 
Procedure Print(First:exs);
var x:exs;
begin
x:=first;
while x<>nil do
begin
writeln (x^.data:4);
x:=x^.next;
end;
 
end;
 
 
 
Procedure Init(Var u:EXS);
Var x, y: Exs;
Digit: String;
Begin
Writeln('Введите список ');
u:=Nil; {список пуст}
WriteLn('Введите элементы списка. Конец ввода О');
Readln(Digit);
While Length(Digit)<>0 Do
Begin
New(y); {формирование элемента списка}
y^.next:=Nil; 
y^.Data:=Digit;
If u=nil Then u:=y {вставляем первый элемент списка}
Else x^.next:=y; {вставляем элемент в конец списка}
x:=y;
{переносим значение указателя на последний элемент списка}
Readln(Digit);
End;
 
end;
 
Procedure NewSpis(Var u:EXS);
var
  c:EXS;
  d:string;
  begin
    New(c);
    c^.next:=u;
    Readln(d);
    c^.data:=d;
    u:=c;
  end;
 
 
Procedure Sort(Var u:EXS);
var
  tmp,rab:EXS;
  tmps:String;
begin
 
  rab:=u;
  while rab<>nil do
  begin
    tmp:=rab^.next;
    while tmp<>nil do
    begin
      if tmp^.data<rab^.data then
      begin
        tmps:=tmp^.data;
        tmp^.data:=rab^.data;
        rab^.data:=tmps
      end;
      tmp:=tmp^.next
    end;
    rab:=rab^.next
  end
end;
 
 
 
 
begin
Init(u);
Writeln('Сформированный список');
Print(u);
NewSpis(u);
Sort(u);
Writeln('Отсортированный список');
Print(u);
 
 
end.