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

type
  tList = ^rList;
  rList = record
    A : Integer;
    L : tList;
  end;
  
function CreateList : tList;
var
  N, i : Integer;
  L, C, T : tList;
begin
  L := nil;
  WriteLn('Ввод элементов списка:');
  Write('N = '); ReadLn(N);
  for i := 1 to N do
    begin
      New(C);
      Write('A(', i, ') = '); ReadLn(C^.A);
      if L = nil then
        L := C
      else
        T^.L := C;
      T := C;
    end;
  CreateList := L;
end;
 
procedure OutList(Msg : String; L : tList);
begin
  Write(Msg);
  if L = nil then
    Write('список пуст')
  else
    while L <> nil do
      begin
        Write(#32, L^.A);
        L := L^.L;
      end;
  WriteLn;
end;
 
procedure CompressList(var L : tList);
var
  C, T : tList;
begin
  if L = nil then
    Exit;
  C := L;
  while C^.L <> nil do
    if C^.A <> C^.L^.A then
      C := C^.L
    else
      begin
        T := C^.L;
        C^.L := T^.L;
        Dispose(T);
      end;
end;
 
var
  L : tList;
begin
  L := CreateList;
  OutList('Начальный список:', L);
  CompressList(L);
  OutList('   Сжатый список:', L);
end.