Algorithme de suppresion d'element dans tableau

Bonjour,
svp verefier avec moi si l'algorithme d'insertion est vrai ou nn et merci pour avance


Var
T : tableau [1..100] de réels ;
N ,P,i: entiers ;
Rep : caractère ;
Debut
Si N=0 alors
Ecrire(`le tableau est vide `) ;
Sinon
Ecrire(`entrer l'indice de l''élément à supprimer :') ;
Lire(P) ;
Si (P<1) ou (P>N) alors
Ecrire(`Position hors limites du tableau `)
Sinon
Ecrire(`la valeur dans cette position est :`,T[P]) ;
Ecrire(`Confirmer la suppression (O/N) `) ;
Lire(Rep) ;
Si Rep='O' Alors
N <-- N+1 ;
Pour i <-- P à N-1 Faire
T[i] <-- T[i+1] ;
Finpour i
N <-- N-1; (*il y aura un élément en moins*)
Finsi
Finsi
Finsi
Fin