type
  Tsuntrip = class
  private
  Pid:string;
  public
    constructor Create;
    function AnstallningsNr(Pid:string):boolean;
  end;

implementation

constructor Tsuntrip.Create;
begin
  inherited Create;
  // TODO: Add any constructor code here
end;

function Tsuntrip.AnstallningsNr(Pid:string):boolean;
begin

  if (Pid[1] = 'P') and (Pid.length = 3) then
  result:=true
  else
  result:=false;

end;

end.