oder man überprüft einfach mit einer boolschen Variable, ob du die Meinung geäußert hast und setzt sie somit automatisch auf 1.
If a = 1 then
begin
Meinung.false;
PleXoNiu.hattrotzdemRecht(1)
end;
procedure give.afck (pz : ganzezahl);
begin
if pz = 0 then
begin
give.afck := 0;
juckt := 0;
end;
else if pz = 1 then
begin
PleXoNiu.hatRecht;
end;
end;