Mетод search не является статическим для типа TOffender

{$mode objfpc}
uses crt;
const N=2;
type TOffender=class
fam:string;
name:string;
clichka:string;
rost:integer;
 
constructor Create(fam0:string;name0:string;clichka0:string;rost0:integer);
procedure search(p:TOffender;st:string);
 
end;
 
procedure TOffender.search(p:TOffender;st:string);
begin
if (p.fam=st)or(p.name=st)or(p.clichka=st) then
 writeln(p);
end;
 
constructor TOffender.Create(fam0:string;name0:string;clichka0:string;rost0:integer);
begin
 fam:=fam0;
 name:=name0;
 clichka:=clichka0;
 rost:=rost0;
end;
 
var 
a:array[1..N] of TOffender;
i:integer;
begin
for i:=1 to N do begin
 a[i]:=TOffender.Create('Иванов','Иван','Вано',170);
 writeln(a[i].fam,' ',a[i].name,' ',a[i].clichka,' ',a[i].rost);
end;
TOffender.search(a[1],'Иван');
 
end.

class procedure search(p:TOffender;st:string);
 
end;
 
class procedure TOffender.search(p:TOffender;st:string);
begin
if (p.fam=st)or(p.name=st)or(p.clichka=st) then
 writeln(p);
end;