[jorgegetafe]

He puesto lo que me habeis dicho y el programa no funciona, os paso el codigo a ver si me podeis ayudar, lo que quiero es que cuando encuentre un 'do' y luego venga un salto de carro lo transforme a 'DO'

Código Delphi [-]
UNIT unit_do;

INTERFACE

  TYPE
    fichero = text;

  VAR
    f, FF: fichero;
    nombreFichero: STRING;
    letra1, letra2, letra3: char;

PROCEDURE MAYUSdo (VAR f, FF: fichero; nombreFichero:STRING);

IMPLEMENTATION

PROCEDURE MAYUSdo (VAR f, FF: fichero; nombreFichero:STRING);
  BEGIN
    WHILE (NOT eof (f)) DO
      BEGIN
        read (f, letra1);
        IF letra1 = 'd' THEN
          BEGIN
            read (f, letra2);
            IF letra2 = 'o' THEN
              BEGIN
                read (f, letra3);
                IF letra3 = #10 THEN
                  BEGIN
                    write (FF,'D');
                    write (FF, 'O');
                    write (FF, ' ');
                  END
                ELSE
                  BEGIN
                    write (FF, letra1);
                    write (FF, letra2);
                    write (FF, letra3);
                  END;
              END
          ELSE
            BEGIN
              write (FF, letra1);
              write (FF, letra2);
            END;
        END
      ELSE
        write (FF, letra1);
    END;
    close (f);
    close (FF);

END;


END.