Ich denke mal Du willst das Array umgehen, da Du ja ne Liste hast, richtig?
Dann würde ich einfach ne Funktion schreiben die das so macht:
Delphi-Quellcode:
procedure getReihe
var reihe:array[1..Hoehe]of integer;
begin
while Blockliste.next <> nil do // Wie das mit JAva geht weiß ich nciht... gemeint ist halt die Liste mit deinen Blöcken
begin
Blockliste:=Blockliste.next;
inc(reihe[Blockliste.y]);
end;
// Diese while Schleife durchläuft deine ganzen Blöcke und erhöht jeweils den Eintrag der Liste in dem der Stein ist.
Wenn jetzt am Ende ein Feld der reihe=10 ist so muss zwangsläufig die Reihe voll sein!
Wie Du das prüfst und so schaffste schon alleine!
end;