[Pascal] Jak uniknąć powtórzeń kart przy rozdawaniu w Pascalu?

uses crt;
const karty='23456789DJQKA';
const kolory=#3#4#5#6;

function f_23(x:integer):char;
begin
f_23:=karty[x mod 13+1];
end;

function f_13(x:integer):char;
begin
f_13:=kolory[x div 13+1];
end;

var k,i,a,b,c:integer;
talia:array[1..52] of integer;
begin
clrscr;
randomize;
writeln('gracz1');
for i:=1 to 13 do
 begin
 k:=random(52);
 write(f_23(k),f_13(k),' ');
 end;
 writeln;
 writeln('gracz2');
 for a:=1 to 13 do
  begin
  k:=random(52);
  if k=k then k:=k+1;
  write(f_23(k),f_13(k),' ');
  end;
  writeln;
  writeln('gracz3');
  for b:=1 to 13 do
   begin
   k:=random(52);
   if k=k then k:=k+1;
   write(f_23(k),f_13(k),' ');
   end;
   writeln;
   writeln('gracz4');
   for c:=1 to 13 do
    begin
    k:=random(52);
    if k=k then k:=k+1;
    write(f_23(k),f_13(k),' ');
    end;
 readkey;
{ clrscr;
 randomize;
 for i:=1 to 52 do talia[i]:=i-1;
 for i:=1 to 4 do
  for k:=1 to 13 do
  begin
  gotoxy(k*4,i*2);
  write(f_23(talia[(i-1)*13+k]),f_13(talia[(i-1)*13+k]));
  end; }
  readkey;
end.

 uses Crt;

 var i,j:integer;
     los:array[1..6]of byte;
     label powt;
 begin
    clrscr;
  Randomize;

 powt:   for i:=1 to 6 do begin
       j:=Random(49)+1;
       los[i]:=j;
       if i>=2 then begin
       for j:=i-1 downto 1 do
       if los[i]=los[j] then GoTo powt;
   end;

   end;
   gotoxy(5,5);write('LICZBY WYLOSOWANE PRZEZ KOMPUTER:');
   gotoxy(19,8);
   for i:=1 to 6 do
   write(los[i],' ');
   gotoxy(15,15);write('press any key');
     readKey;

 end.

uses crt;
type tab=array[1..13]of integer;
     tab1=array[1..52]of string;

const talia1:tab1=('2C','2D','2H','2S','3C','3D','3H','3P','4C','4D','4H',
     '4S','5C','5D','5H','5S','6C','6D','6H','6S','7C','7D','7H','7S','8C',
     '8D','8H','8S','9C','9D','9H','9S','10C','10D','1OH','1OS','WC','WD',
     'WH','WS','DC','DD','DH','DS','KC','KD','KH','KS',
      'AC','AD','AH','AS');
const mx=52;
var gracz1,gracz2,gracz3,gracz4:tab;
label powt;
var i,j,n,k,liczba,g1,g2,g3,g4:integer;
    los:array[1..mx]of integer;

begin
    for i:=1 to mx do los[i]:=0;
    clrscr;

   k:=0;
    Randomize;

 powt: repeat
        k:=k+1;
        liczba:=Random(mx)+1;
        if k=1 then begin los[1]:=liczba;end;
        if k>1 then
        begin
         for n:=k-1 downto 1 do
         begin
             if los[n]=liczba then begin k:=k-1;GoTo powt;end;
          end;
        end;
              los[k]:=liczba;
        until k=mx;
   n:=0;g1:=0;g2:=0;g3:=0;g4:=0;
   repeat
       g1:=g1+1;n:=n+1;
     gracz1[g1]:=los[n];
        g2:=g2+1;n:=n+1;
     gracz2[g2]:=los[n];
     n:=n+1;g3:=g3+1;
     gracz3[g3]:=los[n];
     n:=n+1;g4:=g4+1;
     gracz4[g4]:=los[n];
    until n=52;
    writeln('C clabs - trefle');
    writeln('D diamonds - kara');
    writeln('H hearts - kiery');
    writeln('S spades - piki');
    writeln('np. 5C to 5 trefl, AH to as kier');
    writeln;
    writeln('gracz 1');
   for i:=1 to 13 do
    write(talia1[gracz1[i]],'  '); writeln;
        writeln('gracz 2');
     for i:=1 to 13 do
    write(talia1[gracz2[i]],'  '); writeln;
        writeln('gracz 3');
     for i:=1 to 13 do
    write(talia1[gracz3[i]],'  '); writeln;
        writeln('gracz 1');
     for i:=1 to 13 do
    write(talia1[gracz4[i]],'  '); writeln;
    writeln('press any key');
  readkey;
   end.