Из каждой группы подряд идущих одинаковых слов в списке оставить только одно

type
  Tinf = string[128];{тип данных, который будет храниться в элементе списка}
  List = ^TList;{Указатель на элемент типа TList}
  TList = record {А это наименование нашего типа "запись" обычно динамические структуры описываются через запись}
    data: TInf;  {данные, хранимые в элементе}
    next,    {указатель на следующий элемент списка}
    prev: List;   {указатель на предыдущий элемент списка}
  end;
 
{Процедура добавления нового элемента в двунаправленный список}
procedure AddElem(var nach, ends: List; znach1: TInf);
var
  tmp: List;
begin
  if nach = nil then {не пуст ли список, если пуст, то}
  begin
    New(nach);
    {создаём элемент, указатель nach уже будет иметь адрес}
    nach^.next := nil; {никогда не забываем "занулять" указатели}
    nach^.prev := nil; {аналогично}
    ends := nach; {изменяем указатель конца списка}
  end
  else {если список не пуст}
  begin
    New(ends^.next); 
    {создаём новый элемент}
    ends^.next^.prev := ends; {связь нового элемента с последним элементом списка}
    ends := ends^.next;{конец списка изменился и мы указатель "переставляем"}
    ends^.next := nil; {не забываем "занулять" указатели}
  end;
  ends^.data := znach1; {заносим данные}
end;
 
{процедура печати списка
полностью расписана при работе со стеком}
procedure Print(spis1: List);
begin
  if spis1 = nil then
  begin
    writeln('Список пуст.');
    exit;
  end;
  while spis1 <> nil do
  begin
    Write(spis1^.data, ' ');
    spis1 := spis1^.next
  end;
end;
 
procedure FreeStek(spis1: List);
var
  tmp: List;
begin
  while spis1 <> nil do
  begin
    tmp := spis1;
    spis1 := spis1^.next;
    Dispose(tmp);
  end;
end;
 
var
  ad, ad1, tmp,
  SpisNach, {указатель на начало списка и}
  SpisEnd,   {указатель на конец списка. Эти два указателя }
  tmpl: List; {неотъемлимая часть в двунаправленном списке}
  n: integer;
  tmpinf: TInf;
  s: set of string;
 
begin
  s := [];
  SpisNach := nil;
  SpisEnd := nil;
  repeat
    Writeln('Введите количество элементов в списке: ');
    readln(n);
  until n > 0;
  randomize;
  while n > 0 do
  begin
    write('Введите ', n, '-й элемент списка: ');
    readln(TmpInf);
    AddEleM(SpisNach, SpisEnd, TmpInf);
    dec(n);
  end;
  Writeln('Список до изменений: ');
  Print(SpisNach);
  writeln;
  Writeln('Список после изменений: ');
  while SpisNach <> nil do
  begin
    include(s, SpisNach^.data);
    SpisNach := SpisNach^.next;
  end;
  SpisNach := nil;
  SpisEnd := nil;
  foreach var s1: string in s do
    AddEleM(SpisNach, SpisEnd, s1);
  Print(SpisNach);
  FreeStek(SpisNach);
end.