Pascal/Turbo Pascal - Loteria de 30 tarjetas con 12 numeros por tarjeta

O sea, lo uqe queiro hacer es una loteria de 30 tarjetas en cada cual tengo 12 numeros es decir un arreglo bidimencional de 30*12 no son 360 numeros mi problema es que de esos 360 numeros con los cuales peudo rellenar la tarjeta solo puedo usar del 1-54 es decir solo peudo usar 54 numeros repetidos varaias veces entre 360 numeros ya he logrado llenar las tarjetas sin que haya cais una repeticion de valores con este codigo que les muestro a continuacion

program loteria;
uses crt;
var
a,b,c,d,f:integer;
Plantillas: Array[1..12] of integer;
Tarjetas: Array[1..30,1..12] of integer;


Begin
clrscr;
Randomize;
For d:=1 to 30 do
begin
For a:=1 to 12 do
Begin
Tarjetas[d][a]:=Random(54);
For b:=12 to 1 do
if (Tarjetas[d][b] = Tarjetas[d][a]) then Tarjetas[d][a]:=Random(54);
For c:=1 downto 12 do
if (Tarjetas[d][c] = Tarjetas[d][b]) then Tarjetas[d][a]:=Random(54);
end;
end;
For f:=1 to 5 do
for d:=1 to 12 do
Writeln(f,'','',d,' Valor ', Tarjetas[f][d]);
Writeln;
readln;
end.

ahroa el detalle de esto y en el cual me quedo totalmente bloqueado es que si hago 360 numeros por logica tnego que dividir 360/54 (para que me de las veces en que se peude repetir un numero), me da 6.6 lo redondeo a 7 tons como hago para que el progrma me cheque los 12 numeros de cada tarjeta y me diga sabes que ete se repitio 7 veces y ya no lo use en el random ??

Le hice estos cambios al codigo croe uqe es mas etendible

program loteria;
uses crt;

type
Tarjetas= Array[1..30,1..12] of byte;
Coplar= Array[1..30,1..12] of byte;
Comp= array[1..12] of byte;
var
a,b,c,d,f,g,w,m:integer;
x,y:Tarjetas;
z:Comp;
p:Coplar;

Procedure Rmatriz(c:integer);
Begin
Randomize;
For d:=1 to 30 do
begin
For a:=1 to 12 do
Begin
x[d,a]:=Random(c+1);
y[d,a]:=x[d,a];
end;

end;
end;

Procedure Comparar(x,y:Tarjetas);
begin
For d:=1 to 30 do
Begin
For a:=1 to 12 do
Begin
If (x[d,a] = y[d,a+1]) then x[d,a]:=Random(54+1);
If (y[d,a-1] = x[d,a]) then x[d,a]:=Random(54+1);
End;
For a:=1 downto 12 do
Begin
If (x[d,a] = y[d,a+1]) then x[d,a]:=Random(54+1);
If (y[d,a-1] = x[d,a]) then x[d,a]:=Random(54+1);
End;
End;
End;

Procedure CompTabla(x,y:Tarjetas; z:Comp; p:Coplar);
Begin
w:=w+1;
For c:=1 to 54 do
For d:=1 to 30 do
For a:=1 to 12 do
If x[c,a]=z[c] then w:=w+1;
if w=7 then z[c]:=z[w];
end;


Procedure imatriz(x:Tarjetas);
Begin
for f:=1 to 30 do
Begin
Writeln(f:1);
for d:=1 to 12 do
Begin
Write(x[f,d]:8);
Writeln;
end;
Writeln('----------------');
end;
end;

Procedure Garchivo(x:Tarjetas);
var
ArchText : Text;
Begin
Assign (ArchText,'loteria.txt');
Rewrite(ArchText);
For f:=1 to 30 do
Begin
Writeln(Archtext,f:1);
for d:=1 to 12 do
Begin
Write(Archtext,x[f,d]:8);
Writeln(Archtext);
end;
Writeln(Archtext,'----------------');
end;
Close(ArchText)
end;

Begin
clrscr;
c:=54;
Rmatriz(c);
Comparar(x,y);
imatriz(x);
Garchivo(x);
readln;
end.

Lo unico que me hace falta es que no se puedan repetir lso 7 numeros alguin alguna idea para esto??