procedure ShaflNew(); //Замес шафла
var i,j,k,s: Integer;
begin
for i:=1 to 9 do Koloda[i]:=NumKol*4;
Koloda[10]:=NumKol*16; NumKar:=NumKol*52;
for i:= 1 to NumKol*52 do begin
k:=Random(NumKar); s:=NumKar; j:=11;
while k<s do begin j:=j-1;
s:=s-Koloda[j];
end;
Koloda[j]:=Koloda[j]-1;
NumKar:=NumKar-1;
Massiv[i]:=j;
end;
end;
