Pascal/Turbo Pascal - (consulta) Tratamiento de cadena 2

{tu cuentas también las de tres caracteres y pones  más de tres caracteres.

 Mira esto}

program TP06_2;

  uses

      crt;

  var

    letra, cont, paso : integer;

   function palabras_de_mas_de_tres_caracteres(pl : string) : integer;

    begin

        palabras_de_mas_de_tres_caracteres := 0;

        letra := 0;

        cont := 0;

        for paso := 1 to length(pl) do

        begin

        if pl[paso] <> ' ' then

        letra := letra + 1;

        if pl[paso] = ' ' then

        begin

          if letra > 3 then

          begin

             cont := cont + 1;

             letra := 0;

          end

        else

           begin

              letra := 0;

           end;

         end;

      end;

        if letra > 3 then

        cont := cont + 1;

        palabras_de_mas_de_tres_caracteres := cont;

     end;

  begin

     clrscr;

     writeln;

     writeln('Cantidad de palabras con mas de tres caracteres: ',

      palabras_de_mas_de_tres_caracteres('             Hoy es Jueves.'));

     readKey;

  end.