Многочлен представить в виде списка

{3. Многочлен представить в виде списка и описать логическую функцию, проверяющую на равенство два многочлена}
 
uses Spisok_Unit;
 
var Sp1, Sp2, PEnd: U;
    n: integer;
    equal: boolean;
 
  procedure vvod(var sp: U; m: integer);
  var i: integer;
      x: longint;
  begin
    write('1-й коэффициент: ');
    readln(x);  // читаем первый коэффициент
    Sp := nil;
    V_Nachalo(Sp, x);
    PEnd := Sp;
    for i:=2 to m do begin
      write(IntToStr(i) + '-й коэффициент: ');
      readln(x);  // читаем очередной коэффициент
      V_Spisok(PEnd, x);
      PEnd := PEnd^.Next;
    end;
  end;
  
  function sravnenie(Sp1, Sp2: U): boolean;
  var P1, P2: U;
  begin
    P1 := Sp1;
    P2 := Sp2;
    while (P1<>nil) and (P2<>nil) do begin
      if P1^.Inf <> P2^.Inf then begin
        Result := false;
        exit;
      end;
      P1 := P1^.Next;
      P2 := P2^.Next;
    end;
    Result := true;
  end;
 
begin
  write('Введите степень многочлена: ');
  readln(n); {количество элементов}
  writeln('Введите первый многочлен');
  vvod(Sp1, n+1);
  writeln('Введите второй многочлен');
  vvod(Sp2, n+1);
  equal := sravnenie(Sp1, Sp2);
  if equal then
    writeln('Многочлены равны.')
  else
    writeln('Многочлены не равны.');
  Ochistka(Sp1);
  Ochistka(Sp2);
end.