Ég er að gera lokaverkefni í Delphi og á ég að gera spil þ.e. Olsen Olsen. En það sem ég er í vandræðum með er það að ég þarf að láta forritið tékka á hverju spili fyrir sig og gá hvort að þetta sé samstæða eða ekki ef að þetta er samstæða þá eyðir hún spilinu í stoknum þínum og færir það yfir í hinn.
Þetta er það sem að mér datt í hug að gera:

a := 0;

for i := 0 to player1Pile.getSize do
begin
inc(a);
if pl1Pile.getCardAt(a).getSuit = drawPile.getTopCard.getSuit then
begin
drawPile.insertAtTop(pl1Pile.getCardAt(a));
pl1Pile.removeCardAt(a);
player1Pile.turnAllFaceDown;
player2Pile.turnAllFaceUp;
end;
end;

en gallinn við þetta er sá að hann tékkar á hverju spili fyrir sig og tekur allar samstæður úr stoknum en ég vil bara að hann taki eina.
Veit einhver hvað skal gera?