Добавление сортировки

Uses Crt;
type
    D = string;
  TPElem = ^TElem;
  TElem = record
    Data : D;
      Left,Right: TPElem;
  end; 
  
var
  T,S : TPElem;
  k:byte;
  N,X:string;
 
procedure AddToTree( var T: TPElem; N:string); 
begin
  if T = nil then begin
    New(T);
    T^.Data := N;
     T^.Left := nil;
     T^.Right := nil;
   Exit; end; 
  if N < T^.Data then
     AddToTree(T^.Left, N)
  else 
     AddToTree(T^.Right, N);
end; 
// //
function DeleteMin(var T: TPElem): D;
var W: TPElem;
begin
    if T^.Left = nil then begin
        DeleteMin := T^.Data;   
        W := T; 
        T := T^.Right;  
        Dispose(W);     
    end
    else 
        DeleteMin := DeleteMin(T^.Left);
end;
// //
procedure Remove(var T: TPElem; X: D);
var Next: TPElem;
begin
    if T <> nil then
        if X < T^.Data then Remove(T^.Left, X)
        else 
            if X > T^.Data then Remove(T^.Right, X)
            else 
                if (T^.Left = nil) and (T^.Right = nil) then begin
                    Dispose(T); 
                    T := nil
                end
                else 
                    if T^.Left = nil then begin
                        Next := T^.Right;
                        Dispose(T);
                        T := Next;
                    end
                    else
                        if T^.Right = nil then begin
                            Next := T^.Left;
                            Dispose(T);
                            T := Next;
                        end
                    else
                T^.Data := DeleteMin(T^.Right);
end;
// //
function Search(T:TPElem; N:string):TPElem;
var
P:TPElem;  
begin
  if T=nil then  
     begin
       Search:=nil;  
       exit; 
     end;
  if N=T^.Data then 
    P:=T 
     else 
       if N < T^.Data then
          P:=Search(T^.Left,N)
       else
         P:=Search(T^.Right,N);
  Search:=P;
end;
// //
procedure Output(T:TPElem);  {ВЫВОД}
begin
  if T=nil then 
   exit;    
  Output(T^.Left);  
  write('  ',T^.Data);
  Output(T^.Right);  
end;
// //
 begin
    while true do
    begin
        writeLn('Выберите действие');
        writeLn('1 - Добавление');
        writeLn('2 - Поиск');
        writeLn('3 - Удаление');
        writeLn('4 - Переименование');
        writeLn('5 - Вывод');
        writeLn('6 - Очистка');
        writeLn('7 - Exit');
       var ans := ReadLnString('Ваш выбор:').Trim;
      if ans.Length > 0 then
        case ans[1] of
            '1' :          {ВВОД}
             begin
              ClrScr;
               Write('Задайте количество сотрудников: ');
               Readln(k);
              for var i := 1 to k do
                begin
                 Write('Введите имя: ');
                 Readln(N);
                 AddToTree(T,N);
                end; 
             end;
         '2': begin
               ClrScr;
             if T = nil then
                writeln('Список Пуст')
                 else begin              
                write('Имя для поиска: ');
                readln(N);
                S:=Search(T,N);
                  if S <> nil then
                    writeln('Найдено.')
                  else writeln('Не найдено.');
              end; end;
        '3': begin  
               ClrScr;
             if T = nil then
                writeln('Список Пуст')
                else begin
                write('Имя для удаления: ');
                readln(X);
                Remove(T,X);
             end; end;
        '4': begin  
              ClrScr;
            if T = nil then
               writeln('Список Пуст')
              else begin    
              write('Имя для изменения: ');
               readln(X);
               Remove(T,X);
             Write('Введите новое имя: ');
             Readln(N);
             AddToTree(T,N);     
            end; end;
    '5':  begin         {ВЫВОД}
       ClrScr;
    Write('Список: ');
    if T = nil then
    writeln('пуст... ')
    else begin
        Output(T);
        writeln;
       end; end;
        '6' : begin
              T:=nil;
             ClrScr;
              writeln('Список очищен... ');
              end;
          '7' : exit
        end;  
    end;
end.

Uses Crt;
type
  TPElem = ^TElem;
  TElem = record
    Data : string;
    PNext : TPElem;
  end; 
var
  PList, P : TPElem;
  i:integer;       
  begin
    while true do
    begin
        writeLn;
        writeLn('Выберите действие');
        writeLn('1 - Добавление');
        writeLn('2 - Удаление');
        writeLn('3 - Поиск');
        writeLn('4 - Редактирование');
        writeLn('5 - Вывод');
        writeLn('6 - Exit');
     readln(i);
     case i of
  1:
  begin 
  ClrScr;
    var k:integer;
    Write('Задайте количество сотрудников: ');
    Readln(k);
    for i := 1 to k do
    begin
      if PList = nil then
      begin
        New(P);
        PList := P;
      end
      else
      begin
        New(P^.PNext);
        P := P^.PNext;
      end;
      P^.PNext := nil;
      Write('Введите имя: ');
      Readln(P^.Data);
    end; 
    end;
  2:
  begin
  ClrScr;
    var E:string;   
      if PList = nil then begin
      Write('Список пуст');
      Continue  
      end;
    Write('Задайте имя для удаления: ');
    Read(E);
    while (PList <> nil) and (PList^.Data = E) do
    begin
    P := PList;
      PList := P^.PNext;
      Dispose(P);
    end;
    P := PList;
    if P <> nil then
      while P^.PNext <> nil do
        if P^.PNext^.Data = E then
        begin
          P^.PNext := P^.PNext ^.PNext;
        end
        else
          P := P^.PNext; 
    end;
  3:
    begin
    ClrScr;
    var
    d:string;
    var flag: boolean;
     P := PList;
     flag := false;
        if P = nil then begin
        Write('Список пуст');
        Continue  
        end;
     writeln('введите имя сотрудника для поиска:');
     read(d);
      while (P <> nil) and (not flag) do
      begin  
        if d = P^.data then
        begin
          flag := true;
         write('имя найдено в списке');
          break;
        end
        else
          P := P^.PNext
      end;
    end; 
   4:
    begin
    ClrScr;
    var E,R:string;
      if Plist = nil then begin
      Write('Список пуст');
      Continue  
      end;
      P := PList;
    Write('Задайте имя для изменения: ');
    Readln(E);
    while P <> nil do
      if P^.Data = E then
    begin
      Write('Задайте новое имя: ');
      read(R);
      P^.Data:=R;
    end
        else
          P := P^.PNext; 
    end;
   5:
   begin
   ClrScr;
    Write('Список: ');
    P := PList;
    if P = nil then
    write('пуст');
    while P <> nil do
    begin
      Write(P^.Data, ' ');
      P := P^.PNext;
      end;
      end;
    6: exit
end;  
end;
end.