Pascal/Turbo Pascal - programa que dada una cadena de carácter y un párrafo, elimine la cadena del párrafo.

{Mira esto te permite borrar cualquier palabra solo tienes que entrar

la que quieres borrar la cadena texto es la que presenta puedes borrar

lo que quieras de ella.}

program cadena;

 uses

    crt;

  const

    texto : string = ('Papiro Tenia Mucho Tiempo');

  var

    caden : string;

    anula : string[40];

    paso, i, x  : integer;

  begin

      clrscr;

      writeln;

      writeln('  La Frase Es Asi : ',texto);

      writeln;

      write('  Entre Frase A Anular Del Texto : ');

      readln(anula);

      repeat

           if upcase(texto[i]) = upcase(anula[1]) then

           begin

              for x := 1 to length(anula) do

              begin

              if upcase(texto[(i - 1) + x]) = upcase(anula[x]) then

              paso := paso + 1;

              end;

              if paso = length(anula) then

              begin

                 delete(texto,i,paso);

                 i := i + paso - 1;

                 paso := 0;

              end;

           end;

       i := i + 1;

       until i > length(texto);

       writeln;

       writeln('  La Frase Queda Asi : ',texto);

       readkey;

  end.