Algoritmia - AYUDA URGENTE CON PASCAL

program BuscarPalabra;

var

  secuencia: string;

  palabra, letra: string;

  i, j: integer;

begin

  // Paso 1: Leer la secuencia de letras introducidas por el usuario

  writeln('Introduce la secuencia de letras:');

  readln(secuencia);

  // Paso 2: Leer la palabra que se desea conseguir en la secuencia

  writeln('Introduce la palabra que deseas conseguir en la secuencia:');

  readln(palabra);

  // Paso 3: Recorrer la secuencia

  for i := 1 to length(secuencia) do

  begin

    letra := secuencia[i];

    // Paso 4: Verificar si la letra coincide con alguna letra de la palabra

    for j := 1 to length(palabra) do

    begin

      if letra = palabra[j] then

      begin

        // Paso 5: Convertir la letra de la secuencia a mayúscula

        secuencia[i] := UpCase(letra);

        break; // Salir del bucle interno si se encuentra una coincidencia

      end;

    end;

  end;

  // Imprimir la secuencia modificada

  writeln('Secuencia modificada: ', secuencia);

end.