Remplir tabeau avec des valeurs distinct

program Distint;

const ArraySize = 10;
var T : Array[1 .. ArraySize] of Integer; //Or real type
Value : Integer; //Or real type
I, K : Integer;
Exists : Boolean;

begin

Write('1 Entrez un nombre ?. ');
Readln(T[1]); { La première valeur du tableau }

I := 2;

while I <= ArraySize do begin
Write(I, ' Entrez un nombre ?. ');
Readln(Value); { La valeur n'est pas rangée dans le tableau
avant la vérification }

K := 1;
Exists := False;
while K <= I - 1 do begin
if T[K] = Value then begin
Exists := True;
I := I - 1; { La vérification est positive on met
à jour le compteur de tableau }
WriteLn;
WriteLn('===>> Stop !. Cette valeur existe deja');
WriteLn;
Break; end // On quitte si une valeur existe
else // Sinon on continue la vérification
K := K + 1;
end;

if not Exists then
T[I] := Value; { Si la vérification est négative
on range la valeur dans le tableau à la case d'indice I }

I := I + 1;
end;

WriteLn;
WriteLn;

for I := 1 to ArraySize do
WriteLn(T[I]);

Readln;

  { TODO -oUser -cConsole Main : placez le code ici }
end.