Exercice d'algo (pascal) verification plz

Bonjour,
Voila je veux savoir vos idées sur cet exercice d'algo (pascal) (un exo en module de revision 3eme informatique tunisie) qui remplit chaque case d'un tableau t par un mot d'une phrase saisit.....

i<--0
repeter
i<--i+1
p<--pos("",ch)
si (p >0) alors t[1]<--souchaine (ch,1,p-1)
sinon (t[1]<--ch)
fin si
jusqu'a (p>0) ou (i<--n)

i<--p
p<--0

j<--1

tant que (p>0) faire
repeter
i<--i+1
p<--pos("",souchaine(ch,i,n))
p2<--pos("",souchaine(ch,p+1,n))

j<--j+1
si (p>1) and (p2=0) alors (t[j]<--( souchaine (ch,p+1,n))
sinon si (p>1) and (p2>1)
alors

t[j]<--(souchaine(ch,p+1,p2-1))
fin si
jusqu'a (i<--n)

et merci pour les reponses ;)