Traduction algo vers pascal

Bonjour,
j'ai de problemes a traduire l'algorithme en pascal si vous pouvez m'aider a traduire cet algorithme

algorithme tri_selction (varT:tab)
variables
i,j,x,indmin:entier
debut
pour i de 1 à (n-1) faire
indmin <----- i
pour j de (i+1) à n faire
si (T(j)<T(indmin)) alors
indmin <----- j
fin si
fin pour
x <---- T(i)
T(i) <----- T(indmin)
T(indmin) <---- x
fin pour
fin