[LG]Utilisation de la fonction Random

Bonjour, je ne sais pas bien utiliser la fonction Random, j'ai écrit ce code(vous n'avez que le début), mais le problème c'est qu'en lançant mon programme, il me tire tous le tps les meme chiffre 1 1 6 2 2 et 5 si je met un randomize il tire 1 1 1 1 ou 2 2 2 et 2.
Pourriez vous m'expliquez comme on l'utilise..

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Procedure DE(var cpt:T_cpt; var findujeu:boolean; var parcours:integer; var pprec,pcour:T_ptr_elmt);   Var p_avt:integer; pcaseN:T_ptr_elmt; MAX:integer;   Begin MAX:=6; cpt:=Random(MAX)+1;   Writeln('Vous avez tire le chiffre: ',cpt);

---

Tu dois obligatoirement utiliser randomize au tout dé but de ton programme, c'est-à-dire entre les instructions begin et end.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Procedure DE(var cpt:T_cpt; var findujeu:boolean; var parcours:integer; var pprec,pcour:T_ptr_elmt);   Var p_avt:integer; pcaseN:T_ptr_elmt; MAX:integer;   Begin MAX:=6; cpt:=Random(MAX)+1;   Writeln('Vous avez tire le chiffre: ',cpt); end;   begin randomize; end;

---