Указатели.Поиск элементов в списке

[misery24-7]

есть процедура поиска элемента в списке,но когда я ее вписываю в программу,компилирую,курсор становится в место которое я выделил в тексте и пишет Operand types don't match operator.Как я понимаю,что-то не так с переменной n.Что тут можно придумать?

function Seach(n:tdata;var head,tail:ukazatel):boolean;
var
   p:ukazatel;
   found:boolean;
begin
     p:=head;
     found:=false;
     while (p<>nil) and (not found) do
     begin
          if p^.data=n вот тут  then
          found:=true
          else
          p:=p^.next;
     end;
     seach:=found;
end;

[Stilet]

Полный код в студию.

[misery24-7]

unit example;
Interface
uses crt;
type
    Tdata=record
    name:string;
    strana:string;
    age:integer;
    end;
       ukazatel=^Tlist;
       Tlist=record
       data:Tdata;
       Next:ukazatel;
       end;
var
   head:ukazatel;
   tail:ukazatel;
   p:ukazatel;
   procedure InitList;
   procedure LookList(head,tail:ukazatel);
   procedure AddList(N:tdata;var head,tail:ukazatel);
   function Seach(n:tdata;var head,tail:ukazatel):boolean;
Implementation

function Seach(n:tdata;var head,tail:ukazatel):boolean;
var
   p:ukazatel;
   found:boolean;
begin
     p:=head;
     found:=false;
     while (p<>nil) and (not found) do
     begin
          if p^.data=n then
          found:=true
          else
          p:=p^.next;
     end;
     seach:=found;
end;



procedure InitList;
var
head,tail:ukazatel;
begin
Tail:=nil;
Head:=nil;
end;

procedure LookList(head,tail:ukazatel);
var
   p:ukazatel;
begin
     p:=head;
     writeln('-Prosmotr spiska-');
     writeln('---------------------');
     writeln('| Imya  |Strana| God|');
     while p<>nil do
     begin
          writeln('---------------------');
          writeln('|',p^.data.name,'|',p^.data.strana,'|',p^.data.age,'|');
          p:=p^.next;
     end;
     writeln('---------------------');
     repeat until keypressed;
end;

procedure AddList(n:tdata;var head,tail:ukazatel);
   var p:ukazatel;
begin
     New(p);
     p^.data:=n;
     p^.next:=nil;
     if tail=nil then
     begin
          tail:=p;
          head:=p;
     end
     else
     begin
          tail^.next:=p;
          tail:=p;
     end;
end;


end.

[eoln]

if p^.data=n then

где p^.data и n типа tdata.
В данном случае нет правила по которому можно определить равны ли записи или нет. То есть нужна перегрузка (не всякий паскаль умеет). Но можно просто заменить на

if (p^.data.name=n.name) and (p^.data.strana=n.strana) and (p^.data.age=n.age) then

[misery24-7]

eoln,спасибо,получилось теперь)
а что значит "не всякий паскаль умеет"?)

[Stilet]

Да, пожалуй я бы тоже таке посоветовал. И даже посоветовал бы сию проверку отдельно в функцию вынести.

а что значит "не всякий паскаль умеет"?)

Это значит что не всякая версия компилятора вот так просто сумеет сравнить структуры...
Хотя должно сравниваться...

[Serge_Bliznykov]

Это значит что не всякая версия компилятора вот так просто сумеет сравнить структуры...
Хотя должно сравниваться...

да ну! с чего это вдруг она должна?!

TurboDelphi (aka Delphi 2006) даже массивы не умеет сравнивать

var
  a, b : array[1..10] of integer;
  i : integer;
begin
  for i:=1 to 10 do begin
    a[i] := i;
    b[i] := i;
  end;

  if a=b then ShowMessage('Массивы равны.')
     else ShowMessage('Массивы не равны!');

[Pascal Error] Unit1.pas(xx): E2015 Operator not applicable to this operand type

а вы про сравнение структур говорите...