Pascal/Turbo Pascal - Ayuda para diseña un programa que pida 10 números enteros distintos y los almacene en un vector

Uses CRT;

Const

  TOPE = 10;

VAR

  Tabla : Array [1..10] of integer;

  i,k,aux : Integer;

  repetido:boolean;

begin

  For i:=1 to TOPE do

    begin

      Writeln('Introduzca un n£mero entero: ');

      readln(TABLA[I]);

        For k:= 1 to i do

          begin

            aux:=tabla[k];

            if (aux=tabla[i]) and (i<> k) then

              begin

               writeln('N£mero repetido. Vuelva a introducir otro n£mero');

               readln(tabla[i]);

              end;

        end;

    end;

      for i:=1 to 10 do

      write(tabla[i]:3);

  readln;

end.