Pascal/Turbo Pascal - Ejercicio ESTRUCTURA DE ITERACION

{Algo de esto}

 program silabas;

  uses

     crt;

   const

      texto : string = ' La casa tenia patio pero no tenia patos en el campo' +

      ' pastaba una vaca pero tenia poco pasto';

      silaba = 'pa';

  var

    cont, t : integer;

    tex : string[2];

   begin

       clrscr;

       cont := 0;

       for t := 1 to length(texto) do

       if texto[t] = 'p' then

        if texto[t + 1] = 'a' then

        cont := cont + 1;

     writeln('  Las Silabas [',silaba,'] Encontradas Son : ',cont);

     writeln;

     writeln('  Pulse Una Tecla');

     readkey;

   end.

   {Fíjate solo contara las que sean minúsculas}