Сделать раздачу карт через массив

uses crt;
 
type card=record
     suit: string;
     rang: string;
     flag: boolean;
     end;
 
     mas=array [1..32] of card;
     
var pack: mas; j: byte;
    gamblers: byte;
    cards: byte;
 
procedure GenPack(var z: mas);
const spis: array [1..8] of string=('шестерка','семерка','восьмерка','девятка','десятка','валет','дама','король');
      mast: array [1..4] of string=(' червей',' крестей',' бубен',' пик');
var i: byte;
begin
for i:=1 to 8 do
    begin
    z[i].rang:=spis[i];
    z[i+8].rang:=spis[i];
    z[i+16].rang:=spis[i];
    z[i+24].rang:=spis[i];
    z[i].suit:=mast[1];
    z[i+8].suit:=mast[2];
    z[i+16].suit:=mast[3];
    z[i+24].suit:=mast[4];
    end;
end;
 
procedure Shuffle (var z: mas);
var j,e,k: byte;
    temp: card;
begin
j:=0;
while j<100 do
      begin
      repeat
        e:=random(32)+1;
        k:=random(32)+1;
      until e<>k;
      temp:=z[e];
      z[e]:=z[k];
      z[k]:=temp;
      inc(j);
      end;
end;
 
procedure Deal (var z: mas);
var i,j,k: byte;
begin
for j:=1 to gamblers do
    for i:=1 to cards do
        z[i*j].flag:=true;
for k:=(i*j)+1 to 32 do
    z[k].flag:=false;
end;
 
begin
GenPack(pack);
Shuffle (pack);
gamblers:=2;
cards:=6;
Deal (pack);
for j:=1 to 32 do
    write(pack[j].rang,pack[j].suit,' ',pack[j].flag,'  ');
readln;
end.