Le premier doublant

Ecrire un algorithme qui permet de lire une chaine de longueur minimale 4, puis de déterminer et d’afficher la première lettre double de cette chaine (pas forcément successive).

Algorithme lettrelDouble
Debut
  répéter
     Ecrire("donner une chaine")
     lire(ch)
  jusqu'à (long(ch)>=4)
  i←-1
  répéter
     i←i+1
     trouver←faux
     j←i+1
     répeter
        si (ch[i]=ch[j]) alors
            trouver←vrai
        finsi
        j←j+1
     jusqu'à(j=long(ch) ou (trouve=vrai))
  jusqu'à((trouve=vrai)ou(i=long(ch)-2))
  si (trouve=vrai)alors
     ecrire("la premiere lettre double est ",ch[i])
  sinon
     ecrire("aucune lettre double dans ",ch)
  finsi
Fin