Could you tell me how can I do this question?

I have made a question by myself. For example: I am playing the card game to my friend. The card has Spade, Heart, Club and Spade as usual but no number. How can I do if I only play five time and finally there is a record of the comparison XX : XX.

1,
The computer get value randomly...
Do you want to get your choice randomly too?
2,
"..and finally there is a record of the comparison XX : XX...."
the answer is very simple...
add two variables to the definition section

VAR numyou,numcomputer:Integer;{like these..}
Count, Num, Computer : integer;
Choice, compChar : char;
Begin
numyou:=0;
numcomputer:=0;
{
here are your codes
...
...
If you win then increase numyou by one so Inc(numyou) or you can write here too numyou:=numyou+1;
...
...
But if the computer wins then increase his variable named numcomputer,as Inc(numcomputer)
...
...
And when the five round is done write the result as
}
WriteLn(numyou,' : ',numcomputer);
If numyou > numcomputer Then WriteLn('You''re the best!')
Else WriteLn('Computer wins....');
End.

I know what I do not understand. It is the coding between both parties. For example when I code RPS, guessing games, Head & Tail are only one part of the parties are random. But both parties need to clip randomly in this time.