Card trick, Pascal

Language: Layout:

program NEACardTrick;

uses
  SysUtils,
  Math;

type
  Tcards = array[1..21] of string;

var
   cards: Tcards = ('H A', 'H 2', 'H 3', 'H 4', 'H 5', 'H 6', 'H 7',
             'S A', 'S 2', 'S 3', 'S 4', 'S 5', 'S 6', 'S 7',
             'D A', 'D 2', 'D 3', 'D 4', 'D 5', 'D 6', 'D 7');
   shuffledCards:Tcards;
   i,j,y, x: integer;

{procedure do_trick():
    begin

end;}

function get_cards(var cards: array of string): Tcards;

begin

y := 1;
        Repeat
        Randomize;
        x := RandomRange(1,21);
        If cards[x] <> 'Done' then
          begin
            shuffledCards[y] := cards[x];
            y := y + 1;
            cards[x] := 'Done';
          end

Until y >= 21;

get_cards := shuffledCards;
  end;

procedure PrintCards(var shuffledCards: Tcards);
var
  j: integer;
  begin
    for j := 1 to 21 do
      writeln(shuffledCards[j]);
  end;

{function get_chosen_card (var shuffledCards: Tcards): string;

begin

end; }

{procedure deal_into_piles(var shuffledCards: Tcards);
var
  pile1: Tcards;
  pile2:  Tcards;
  pile3:  Tcards;

begin
    for k := 1 to 21 do

end;}

begin

get_cards(cards);
PrintCards(shuffledCards);
readln;
end.

Show compiler warnings [ + ] Show input
Compilation time: 0.24 sec, absolute running time: 5.19 sec, cpu time: 7.75 sec, memory peak: 3 Mb, absolute service time: 5,6 sec