Динамические переменные. Объедините две упорядоченные последовательности в одну упорядоченную последовательность

uses crt;
type    tlist = ^elemList;
        elemList = record
                data:integer;
                pred:tlist;
               end;
var   list:tlist;
      action: char;
      e1, e2 : integer;
 
procedure add;
var   buffList:TList;
      buff:integer;
begin
      new(buffList);
      writeln('Input:');
      read(buff);
      buffList^.pred:=list;
      buffList^.data:=buff;
      list:=buffList;
end;
 
 
procedure free;
var
     buff:tlist;
begin
     while(list<>nil) do
     begin
          buff:=list^.pred;
          dispose(list);
          list:=buff;
     end;
end;
 
 
procedure printList(l:tlist);
begin
     writeln;
     write('List: ');
     while(l<>nil) do
     begin
          write(l^.data,',');
          l:=l^.pred;
     end;
 
end;
 
 
function arithmeticMean(l:tlist):real;
var
   sum,i:integer;
begin
     sum:=0;
     i:=0;
     while(l<>nil) do
     begin
          sum:=sum + l^.data;
          l:=l^.pred;
          inc(i);
     end;
     if (i<>0) then arithmeticMean:=sum/i;
end;
 
procedure change(l:tlist; nowData,newData:integer);
begin
 
      while l<>nil do
      begin
             if l^.data=nowData then l^.data:=newData;
             l:=l^.pred;
     end;
end;
 
 
procedure StartAndFinish(l:tlist);
var
   buff:tlist;
   save:integer;
begin
      buff:=l;
      while l^.pred<>nil do l:=l^.pred;
      save:=l^.data;
      l^.data:=buff^.data;
      buff^.data:=save;
end;
 
 
procedure DelFinish(l:tlist);
var
   buff, buffPred:tlist;
begin
     if l<>nil then
     begin
        buff:=l;
        if  buff^.pred<>nil then
            begin
                 buffPred:=buff^.pred;
                 while buffPred^.pred<>nil do
                 begin
                      buff:=buff^.pred;
                      buffPred:=buff^.pred;
                 end;
                 dispose(buffPred);
                 buff^.pred:= nil;
            end
        else
        begin
              dispose(buff);
              l:=nil;
        end
     end
     else
         writeln('List is empty');
end;
 
begin
 
     while(ord(action)<>27) do
     begin
          clrscr;
          writeln('Введите действие');
          writeln('1 - Добавьте новый элемент');
          writeln('2 - a');
          writeln('3 - b');
          writeln('4 - c');
          writeln('5 - d');
          writeln('6 - Показать list');
          writeln('Esc - out');
         action:=readkey;
          case ord(action) of
               49:Add;
               50:begin
                    writeln('Srednee arifmeticheskoe list:',arithmeticMean(list));
                    readkey;
                   end;
               51:begin
                   writeln('Введите e1:');
                   read(e1);
                   writeln('Введите e2:');
                   read(e2);
                   change(list, e1,e2);
                   end;
               52:StartAndFinish(list);
               53: DelFinish(list);
               54:begin
                   CLRSCR;
                   printlist(list);
                   READKEY;
                   END;
 
          end;
 
     end;
     free;
 
end.