Нужна помощь с сортировкой односвязных списков на Pascal

[Lesowik]

Доброго времени суток, уважаемые ПРОграммисты!

Мне очень нужна Ваша помощь в остаточном решении задачи. Постановка задачи такая:

"Даны два упорядоченных по неубыванию линейных односвязных списка. Сформируйте третий упорядоченный список, состоящий из элементов данных двух, которые входят хотя бы в один из них. Если элемент входит в оба данных списка один или более раз, то в третий список этот элемент поместите в одном экземпляре."

Из всего этого мне надо только упорядочить третий список, который состоит из первого и второго (записаны в третий один за другим). Вот тут у меня тупик, не могу догнать как. Помогите, пожалуйста!

Зарнее спасибо!


Вот код, который я уже написал:

Program lb_13_19;
uses crt;
type
    uk=^list;
    list= record
           x: integer;
           next: uk;
          end;
Var
 Blist, Blist1, Blist2 : uk;
 i,n1,n2,x,y : integer;

procedure CreateList (var Blist: uk);
Begin
 BList:= Nil;
End;

Procedure addlist (var Blist: uk; x : integer);
var
 uk1,uk2,uk3 : uk;
Begin
 New (uk1);
 uk1^.x:=x;
 if blist=nil then
 begin
  blist:=uk1;
  Blist^.next:=nil;
 end
 else
 if x<=Blist^.x then
 Begin
  uk1^.next:=Blist;
  blist:=uk1;
 end
 else
 Begin
  uk2:=blist;
  while (x>uk2^.x) or (uk2^.next=nil) do
  Begin
   uk3:=uk2;
   uk2:=uk2^.next;
  end;
  if x<=uk2^.x then
  Begin
   uk1^.next:=uk2;
   uk3^.next:=uk1;
  End
  else
  Begin
   uk2^.next:=uk1;
   uk1^.next:=nil;
  end;
 end;
end;
Procedure PrintList (blist: uk);
var
 uk1: uk;
Begin
 uk1:=blist;
 while uk1 <> nil do
 Begin
  write (uk1^.x:4);
  uk1:=uk1^.next;
 end;
end;
procedure DelList (var Blist:uk; x : integer);
var
 Flag : boolean;
 uk1,uk2: uk;
Begin
 uk1:=blist;
 if x=Blist^.x then
 Begin
  blist:=blist^.next;
  dispose (uk1);
  flag:=true
 end
 else
 Begin
  while (x<>uk1^.x) and (uk1^.next<>nil) do
  begin
   uk2:=uk1;
   uk1:=uk1^.next;
  end;
  if x= uk1^.x then
  Begin
   flag:=true;
   uk2^.next:=uk1^.next;
   dispose (uk1);
  end ;
 end;
end;
Procedure InsertList1 (Blist1:uk; var Blist:uk);
var
 uk1 : uk;
Begin
 uk1:=blist1;
 blist:=nil;
 while uk1 <> nil do
 Begin
  addlist (blist,uk1^.x);
  uk1:=uk1^.next;
 end;
end;
Procedure InsertList2 (Blist2:uk; var Blist:uk);
var
 uk1 : uk;
Begin
 uk1:=blist2;
 while uk1 <> nil do
 Begin
  addlist (blist,uk1^.x);
  uk1:=uk1^.next;
 end;
end;
Begin
 ClrScr;
 CreateList (blist1);
 CreateList (blist2);
 CreateList (blist);
 Writeln ('Введите количество элементов списка 1 :');
 readln (n1);
 Writeln ('Введите количество элементов списка 2 :');
 readln (n2);
 writeLN ('Введите список 1');
 for i:=1 to n1 do
 Begin
  read (x);
  addlist (blist1,x)
 end;
 writeLN ('Введите список 2');
 for i:=1 to n2 do
 Begin
  read (y);
  addlist (blist2,y)
 end;
 InsertList1 (blist1,blist);
 InsertList2 (blist2,blist);
 clrscr;
 Writeln ('Список1:');
 PrintList (blist1);
 writeln;
 Writeln ('‘ЇЁб®Є 2:');
 PrintList (blist2);
 Writeln;
 Writeln ('Результат: список 3:');
 PrintList (blist);
 GotoXY (22,24);
 Writeln (' Для окончания нажмите любую клавишу.');
 Readkey;
End.

Я думаю, что можно еще другими вариантами пользоваться, например сортировать при создании третьего списка, но как это сделать - не знаю.

[Юльчёнок]

Дан упорядоченный линейный по неубыванию односвязный список. Сформируйте второй упорядоченный список, в который входили бы по одному разу все повторяющиеся эле-менты первого списка.

[Zhenja]

дан односвязный список,нужно все его положительные элементы отсортировать по возрастанию помогите плиз