Label l1,l2;
var
i:integer;
begin
for i:=0 to Person.Count - 1do
begin
l1:
if Person.Sex = not Self.Sex then
begin
if Self.Acceptable(Person) then
begin
while(true)do
begin
Trace(Person);
if Person.Acceptable(self) then
begin
l2
InLove(Person,self);
if Nessary then
Marray(Person,self)
else
if fraction(Person,self) then
Goto l1
else
Goto l2;
end;
if Person.BF.Beat(self) then
begin
PhoneCall(110);
PhoneCall(120);
Self.Friends[x].PhoneCall(Person);
end;
end;
end;
end;
end;
end;