ayuda programa frase en mayuscula

[Gothic_Indhy]

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

[jorge82]

Hola, a ver si te sirve esto:

Código Delphi [-]
function Buscar(const S1, S2: string): string;
var
  I, J: Integer;
  STemp: string;
begin
  Result := '';
  for I := 1 to Length(S1) do
  begin
    for J := 1 to Length(S2) do
    begin
      if (S1[i] = S2[J]) then
      begin
        STemp := UpperCase(S1[i]);
        Break;
      end
      else
        STemp := S1[i];
    end;
    Result := Result + STemp;
  end;
end;

[Gothic_Indhy]

Ok muchisimas gracias!!!
Funciona perfectamente.