Сортировку элементов по фамилиям - PascalABC.NET

Формулировка задачи:

В 21 строке ошибка "Lengt не объявлен в типе string" почему?

type PElement=^TypeElement;
     TypeElement=record
       Name:string;
       Id:integer;
       Next:PElement;
     end;
 
procedure Sort;
 
         var temp, 
          change: integer;   
           ptr:PElement;
             
    begin
    REPEAT
    change:=0;
    while ptr=nil do
    begin
      if ptr^.Next=nil then
      begin 
        if (ptr^.Name.Length > ptr^.Next^.Name.Lengt) then
        begin
          temp:=ptr^.Name.Length;
          ptr^.Name.Length:=ptr^.Next^.Name.Lengt;
          ptr^.Next^.Name.Lengt:=temp;
          change:= 1;
          break;        
        end;
      end;
      ptr:= ptr^.Next;    
     end;
  UNTIL change=0;  
  ReadLn;
end;

Предыдущую ошибку исправил. В 24 строке ошибка "Свойство Length не имеет метода для записи". Как тогда проводить замену?

Решение задачи: «Сортировку элементов по фамилиям»

Листинг программы

if (ptr^.Name.Length > ptr^.Next^.Name.Lengt) then
        begin
          temp:=ptr^.Name;
          ptr^.Name:=ptr^.Next^.Name;
          ptr^.Next^.Name:=temp;
          change:= 1;

Объяснение кода листинга программы

В условии if проверяется, является ли длина имени текущего элемента (ptr^.Name.Length) больше длины имени следующего элемента (ptr^.Next^.Name.Length).
Если условие истинно, то выполняется блок begin, в котором: a. Переменная temp получает значение имени текущего элемента (ptr^.Name). b. Значение имени текущего элемента (ptr^.Name) заменяется на значение имени следующего элемента (ptr^.Next^.Name). c. Значение имени следующего элемента (ptr^.Next^.Name) заменяется на значение переменной temp (которое было именем текущего элемента). d. Переменной change присваивается значение 1.
После выполнения блока begin, управление возвращается в основную часть программы.