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

//Uses Crt;
type
  TPElem = ^TElem;
  TElem = record
    Data : string;
      Left,Right: TPElem;
  end; 
  
var
  T,S : TPElem;
  i,k:byte;
  N: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 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 Lkp(T:TPElem);  {ВЫВОД}
begin
  if T=nil then 
   exit;    
  Lkp(T^.Left);  
  write('  ',T^.Data);
  Lkp(T^.Right);  
end;
// //
 begin
    while true do
    begin
        writeLn('Выберите действие');
        writeLn('1 - Добавление');
        writeLn('2 - Поиск'); 
        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 i := 1 to k do
                begin
                 Write('Введите имя: ');
                 Readln(N);
                 AddToTree(T,N);
                end; 
             end;
         '2': begin      {ПОИСК}
               writeln('Имя для поиска');
               readln(N);
               S:=Search(T,N);
                  if S <> nil then
                    writeln('Найден')
                  else writeln('Такого элемента нет!');
              end;
    '5' :begin         {ВЫВОД}
      //  ClrScr;
    Write('Список: ');
    if T = nil then
    writeln('пуст... ')
    else begin
        Lkp(T);
        writeln;
       end; end;
        '6' : begin
              T:=nil;
     //         ClrScr;
              writeln('Список очищен... ');
              end;
          '7' : exit
        end;  
    end;
end.

const
  MAX = 255;
type
     Cell = record
       CellName: string[2];
       next: integer;
     end;
var
  Mass:array[0..MAX] of Cell;
  name: Cell;
  Y,N,Z: string;
// 
procedure InitMass;          { инициализация физического массива }
  var
   t:integer;
  begin
    for t:=0 to MAX do
   begin
     mass[t].CellName:='empty';
     mass[t].next:= -1;
   end;
end;
//    
function HashIndex(Y: String): integer;        {Вычисление хэша}
var
  i: integer;
begin;
  Result:=0;
  for i:=0 to Length(Y)-1 do begin;
    Result:=(Result+word(Y[i+1]));
    end;
   HashIndex:=Round(Frac(Result*0.61)*100);
end;
// 
procedure Store(N:string);        {вставка значения элемента }
   var
    loc, i : integer;
  begin
   N:=IntToStr(HashIndex(Y));
   loc := StrToInt(N);
    if loc>MAX then Writeln('Расположение за пределами')
     else
    begin
       if (mass[loc].Cellname = 'empty') or
        (mass[loc].Cellname = N) then
        begin
          mass[loc].Cellname:= N;
        end else 
         begin
          while(mass[loc].next <>0) do
           loc := mass[loc].next;
           i := loc;
           while ((i<MAX) and (mass[loc].Cellname='empty'))
            do i := i+1;
             if(i = MAX) then
             begin
               Writeln('Хэш заполнен');
              end else
             begin
               mass[i].Cellname:= N;
               mass[loc].next := i;
             end;
        end;
     end;
end;
//
function Find(Z:string):integer;     {поиск физического адреса ячейки}
   var
    loc:integer;
    begin
      Z:=IntToStr(HashIndex(Y));
      loc :=  StrToInt(Z);
      while (mass[loc].CellName<>Z) and
          (loc <> 0) do loc:=mass[loc].next;
      if(loc = 0) then
     begin
       WriteLn('Не найдено');
       exit
     end else Find := loc;
      writeln('Найдено, хэш: ', loc);
end;

  Mass := new Cell[Max+1];

loc := loc and $FF;

loc := loc mod 256;

    
const
  MAX = 100;
    Cell = record
       CellName: integer;
       next: integer;
     end;
var
  Mass := new Cell[Max+1];
  name: Cell;
  n,z : integer;
  Y: string;
// 
procedure InitMass;          { инициализация физического массива }
  var
   t:integer;
  begin
    for t:=0 to MAX do
   begin
     mass[t].CellName:=0;
     mass[t].next:= -1;
   end;
end;
//    
function HashIndex(Y: String): integer;        {Вычисление хэша}
var
  i: integer;
begin;
  Result:=0;
  for i:=0 to Length(Y)-1 do begin;
    Result:=(Result+word(Y[i+1]));
    end;
   HashIndex:=Round(Frac(Result*0.61)*100);
end;
// 
procedure Store(N:integer);        {вставка значения элемента }
   var
    loc, i : integer;
  begin
   N := HashIndex(Y);
   loc := N;
    if loc>MAX then Writeln('Расположение за пределами')
     else
    begin
       if (mass[loc].Cellname = 0) or
        (mass[loc].Cellname = N) then
        begin
          mass[loc].Cellname:= N;
        end else 
         begin
          while(mass[loc].next <>0) do
           loc := mass[loc].next;
           i := loc;
           while ((i<MAX) and (mass[loc].Cellname=0))
            do i := i+1;
             if(i = MAX) then
             begin
               Writeln('Хэш заполнен');
              end else
             begin
               mass[i].Cellname:= N;
               mass[loc].next := i;
             end;
        end;
     end;
end;
//
function Find(Z:integer):integer;     {поиск физического адреса ячейки}
   var
    loc:integer;
    begin
      Z := HashIndex(Y);
      loc := Z;
      while (mass[loc].CellName<>Z) and
          (loc <> 0) do loc:=mass[loc].next;
      if(loc = 0) then
     begin
       WriteLn('Не найдено');
       exit
     end else Find := loc;
      writeln('Найдено, хэш: ', loc);
end;

const
  MAX = 100;
    Cell = record
       CellName: integer;
       next: integer;
     end;
var
  Mass := new Cell[Max+1];
  name: Cell;
  Y: string;
//
procedure InitMass;           { инициализация массива }
  var
   t:integer;
  begin
    for t:=0 to MAX do
   begin
     mass[t].CellName:=0;
     mass[t].next:= 0;
   end;
end;
//    
function HashIndex(Y: String): integer;        {Вычисление хэша}
var
  i: integer;
begin;
  Result:=0;
  for i:=0 to Length(Y)-1 do begin;
    Result:=(Result+word(Y[i+1]));
    end;
   HashIndex:=Round(Frac(Result*0.61)*100);
end;
// 
procedure Store(loc:integer);          {вставка значения элемента }
  begin
   loc := HashIndex(Y);
       if (mass[loc].Cellname = 0) then
        begin
          mass[loc].Cellname:= loc;
        end else 
         if (mass[loc].Cellname = loc) then
         begin
          inc(mass[loc].next);
          writeln('Совпадение хэша');
        end;
end;
//
function Find(loc:integer):integer;        {поиск адреса ячейки}
    begin
      loc := HashIndex(Y);
      if mass[loc].CellName<>loc then
     begin
       WriteLn('Не найдено');
       exit
     end else Find := loc;
      writeln('Найдено, хэш: ', loc,',',mass[loc].next);
end;
//
function Del(loc:integer):integer;        {удаление элемента хэша}
    begin
      loc := HashIndex(Y);
      if mass[loc].CellName<>loc then
     begin
       WriteLn('Не найдено');
       exit
     end else
     if mass[loc].next = 0
      then mass[loc].CellName:=0 
       else begin
     if mass[loc].next>0 
      then dec(mass[loc].next);
       writeln('Совпадение хэша уменьшено на 1');
       end;
end;
//

procedure Rdata(loc:integer);
 begin
  for loc:=0 to 99 do
   if mass[loc].Cellname > 0 then
    begin
     if np=nil then 
   begin
    new(np); 
    PN:=np;
   end else begin
    PN:=np;
       while PN^.Rnext<>nil do
      PN:=PN^.Rnext; 
    new(PN^.Rnext);
    PN:=PN^.Rnext;
    end;
   PN^.Rnext:=nil;
   PN^.Rdata:=mass[loc].Cellname;
   end;
     end;
//       
 procedure Print(PN:PNode);                      
   begin
    write('Список:  ');
  if PN=nil then
  begin
    writeln('пуст.');
    exit;
  end;
  while PN<>nil do
  begin
    Write(PN^.Rdata, ' ');
    PN:=PN^.Rnext;
  end;
  writeln;
end;