A ver si alguien me puede ayudar...
tengo que hacer un programa en delphi que lea dos frases y me imprima la primera con las coincidencias en mayuscula. Ejemplo
rapido
tornado
Imprima::: RApiDO
lo que he hecho hasta ahora pero que no funciona es:::
Código Delphi
[-]
For x:=1 to LFr1 do
For y:=1 to LFr2 do
If (Fr1[x]=Fr2[y]) then
Begin
s:=s+uppercase(Fr1[x]);
break;
end
else
Begin
s:=s+Fr1[x];
break;
end;
end;
end;
tengo que hacerlo usando un ciclo for, while o Repeat