utilisation de la fonction length

slt, j'ai un exercice qui me ménace depuis quelques jours.
voici l'énoncé:
réaliser un programme qui demande à l'utilisateur d'entrer deux mots et ensuite le programme affichera à chaque fois qu'il y'en a la lettre commune à ces deux mots.
(exemple: premier mot= machine
deuxième mot= éducation
resultat: les communes à ces deux mots sont: a,c,i, )
voila à peu près de quoi il est question

ma proposition est la suivante:

writeln ('entrer deux mots');
readln (mot1,mot2);
for i:=1 to length(mot1) do
begin
for j:=1 to length(mot2) do
begin
if mot1[i]=mot2[j] then
begin
writeln (mot1[i], 'est une lettre commune entre ces deux mots');
end;
end;
end;


Ainsi lorsque je compile il ya des mots qui se repète et je n'arrive pas vraiment à trouver l'astuce pour que le programme affiche uniquement les lettres communes au deux mots inserer par l'utilisateur. Donc j'ai vraiment besoin d'être plus éclairé SVP merci...

ça a l'air d'être du pascal.

un exemple d'algo (en java) :

String mot1 = "toto";
String mot2 = "tata";
char[] res = new char[26];
int k = 0;
for (int i = 0; i < mot1.length; i++)
{
for (int j = 0; j < mot2.length; i++)
{
if (mot1[i] == mot2[j])
{
if (!res.contains[mot1[i]])
{
res[k++] = mot1[i];
}
}
}
}
println("les lettres communes sont : " );
for (int i = 0; res.length; i++)
println(res[i] + "," );


A adapter un peu.