procedure Combat;

Combat1 := 1;

if (FindColor(X, Y, 65280, 220, 110, 330, 220)) then
begin
WriteLn('In Combat . . .');
end ...