Линейный список(помощь с ошибкой)

[raiinc]

const
  maxLength = 100;
 
const
  colors : array [0..7] of String =
    ('чёрный', 'синий', 'зелёный', 'красный', 'голубой', 'оранжевый', 'жёлтый', 'белый');
 
type
  tElement = record
    value : Integer;
    color : String;
  end;
 
procedure printElement(element : tElement);
begin
  Write(element.value, '-', element.color);
end;
  
type
  tList = record
    length : Integer;
    elements : array [1..maxLength] of tElement;
  end;
 
procedure initList(var L : tList);
begin
  L.length := 0;
end;
 
procedure printList(L : tList);
var
  i : Integer;
begin
  if L.length = 0 then
    WriteLn('список пуст')
  else
    begin
      printElement(L.elements[1]);
      for i := 2 to L.length do begin Write(', '); printElement(L.elements[i]); end;
      WriteLn;
    end;
end;
 
function findList(n : Integer; L : tList; var element : tElement) : Boolean;
var
  i : Integer;
begin
  i := 0;
  while i < L.length do
    begin
      inc(i);
      if L.elements[i].value = n then
        begin
          element := L.elements[i];
          findList := True;
          Exit;
        end;
    end;
  findList := False;
end;
 
procedure addListTail(element : tElement; var L : tList);
begin
  if L.length = maxLength then
    begin
      WriteLn('список заполнен');
      Exit;
    end;
  inc(L.length);
  L.elements[L.length] := element;
end;
 
procedure addListBefore(t, V : tElement; var L : tList);
var
  i : Integer;
begin
  if L.length = maxLength then
    begin
      WriteLn('список заполнен');
      Exit;
    end;
  i := L.length;
  while L.elements[i] <> t do
    begin
      L.elements[i + 1] := L.elements[i];
      dec(i);
    end;
  L.elements[i + 1] := L.elements[i];
  L.elements[i] := V;
  inc(L.length);
end;
 
procedure addListAfter(t, V : tElement; var L : tList);
var
  i : Integer;
begin
  if L.length = maxLength then
    begin
      WriteLn('список заполнен');
      Exit;
    end;
  i := L.length;
  while L.elements[i] <> t do
    begin
      L.elements[i + 1] := L.elements[i];
      dec(i);
    end;
  inc(i);
  L.elements[i] := V;
  inc(L.length);
end;
 
procedure removeFromList(t : tElement; var L : tList);
var
  i : Integer;
  m : Boolean;
begin
  if L.length = 0 then
    begin
      WriteLn('список пуст');
      Exit;
    end;
  for i := 1 to L.length do
    if m then
      L.elements[i - 1] := L.elements[i]
    else
      m := L.elements[i] = t;
  if m then
    dec(L.length);
end;
  
var
  L : tList;
  V, t : tElement;
  i : Integer;
begin
  initList(L);
  
  Randomize;
  for i := 1 to 10 do
    begin
      V.value := Random(100);
      V.color := colors[Random(8)];
      addListTail(V, L);
    end;
    
  printList(L);
  
  Write('добавить перед № = '); ReadLn(i);
  if findList(i, L, t) then
    begin
      printElement(t); WriteLn;
      
      V.value := Random(100);
      V.color := colors[Random(8)];
      addListBefore(t, V, L);
    end
  else
    WriteLn('такого значения нет в списке');
  
  printList(L);
 
  Write('добавить после № = '); ReadLn(i);
  if findList(i, L, t) then
    begin
      printElement(t); WriteLn;
      
      V.value := Random(100);
      V.color := colors[Random(8)];
      addListAfter(t, V, L);
    end
  else
    WriteLn('такого значения нет в списке');
 
  printList(L);
  
  Write('удалить № = '); ReadLn(i);
  if findList(i, L, t) then
    begin
      printElement(t); WriteLn;
      
      removeFromList(t, L);
    end
  else
    WriteLn('такого значения нет в списке');
 
  printList(L);
end.

Ошибка вот такая
main.pas(83,23) Error: Operator is not overloaded: "tElement" = "tElement"
main.pas(103,23) Error: Operator is not overloaded: "tElement" = "tElement"
main.pas(127,26) Error: Operator is not overloaded: "tElement" = "tElement"

[Alex314]

Линейный список на базе статического массива? В 2022 году? При наличии готового линейного списка List<T> ? Слов нет...

[macomics]

Сообщение от raiinc

main.pas(83,23) Error: Operator is not overloaded: "tElement" = "tElement"
main.pas(103,23) Error: Operator is not overloaded: "tElement" = "tElement"
main.pas(127,26) Error: Operator is not overloaded: "tElement" = "tElement"

Потому что для структуры типа tElement не определен оператор сравнения. Либо напишите его, либо в трех местах поменяйте код на поэлементное сравнение компонентов структуры и логическую сцепку этих сравнений через or/and/not