[Kalan]

function Tfm01Main.GetAptitude(g:array of boolean):double;
var i,j:integer;
begin
j:=0;
for i:=0 to SizeOf(g)-1 do if g[i] then j:=j+1;
GetAptitude:=(SizeOf(g)-j)/SizeOf(g);
end;