Проверка равенства списков - Pascal

type
  tList = ^rList;
  rList = record
    N : Integer;
    X : tList;
  end;
  
function InputList(msg : String; N : Integer) : tList;
var
  First, Last, Tmp : tList;
  i : Integer;
begin
  First := nil;
  WriteLn(msg);
  for i := 1 to N do
    begin
      Write(i, ' элемент = ');
      New(Tmp); ReadLn(Tmp^.N);
      if First = nil then
        First := Tmp
      else
        Last^.X := Tmp;
      Last := Tmp;
    end;
  Last^.X := nil;
  InputList := First;
end;
 
function Compare(L1, L2 : tList) : Boolean;
begin
  while (L1 <> nil) and (L2 <> nil) and (L1^.N = L2^.N) do
    begin L1 := L1^.X; L2 := L2^.X; end;
  Compare := (L1 = nil) and (L2 = nil);
end;
 
var
  L1, L2 : tList;
  N : Integer;
begin
  Write('N = '); ReadLn(N);
  L1 := InputList('первый список', N);
  L2 := InputList('второй список', N);
  WriteLn('Списки равны = ', Compare(L1, L2));
end.