Delphi-Quellcode:
for i:=1 to 10 do
begin
p[i]:=1; //Init aufs erste
for j:=2 to 200 do //wenn das g[p[i]] kleiner als g[j] dann neu setzen
if g[p[i]]<g[j] then p[i]:=j;
g[p[i]]:=0; //aus wertung raus
end;
so ganz spontan...
wenn g unberührt bleiben soll musstes vorher nochmal kopieren...