Remplir un tableau par des caractéres

Bonjour,

l'exercice est le suivant:

Soit un tableau T1 contenant n lettres majuscules (de A à Z). n étant un entier compris entre 5 et 20. On désire trier en ordre croissant les éléments de T1 et les ranger dans un tableau T2 en utilisant le principe suivant :
1. Chercher la lettre qui a le plus petit code ASCII dans T1
2.a)Ranger cette lettre dans T2
b) Remplacer cette lettre par "*" dans T1
3. Répéter n fois les étapes 1 et 2.
Ecrire un programme Pascal qui permet de :
* Saisir les éléments de T1.
* Trier les éléments de T1 et les ranger dans T2.
* Afficher les éléments de T2.

concernant le saisie de n,le remplissage de T et l'affichage de T c'est facile et c'est déjà fais
le problème reste au niveau de 2):
voila mon essai:

procedure ranger(var t1:tab;var t2:tab;n:integer);
var i,j,m:integer;
aux:char;
begin
j:=1;
for i:=1 to n-1 do
begin
m:=min(t1,i,n);
if(t1[i]<>'*') then
begin
t2[j]:=t1[m];
T1[m]:='*';
j:=j+1;
end;
end;

mais malheureusement ça me donne pas le bon résultat
je cherche l'aide pour avoir le résultat correcte...