type card :
    record
        suit : string
        num : int
        image : int
    end record

var playerHand : flexible array 1 .. 0 of card %The cards in the player's hand

function countCards (hand : array 2 .. * of card) : int
    var numAces : int := 0
    var cardCount : int := 0

    for x : 2 .. upper (hand)
        if (hand (x).num < 11 then
            cardCount += hand (x).num
        elsif hand (x).num = 14 then
            cardCount += 1
            numAces += 1
        elsif hand (x).num >= 11 then
            cardCount += 10
        end if
    end for
    if cardCount <= 10 then
        loop
            exit when numAces = 0 or cardCount > 10
            cardCount += 11
            numAces -= 1
        end loop
    end if
    result cardCount
end countCards

put countCards (playerHand)