Pascal/Turbo Pascal - Espacios en pascal! AYUDAAA

{Mira como}

program espacios;

 uses

    crt;

  var

     linea : string[80];

     blancos, cont : integer;

   function numblancos(cad : string) : integer;

   begin

      blancos := 0;

      numblancos := 0;

      for cont := 1 to length(cad) do

      begin

      if cad[cont] = #32 then

      blancos := blancos + 1;

      end;

      numblancos := blancos;

   end;

   begin

      clrscr;

      writeln;

      writeln('   Entre Linea Texto');

      write('  : ');

      readln(linea);

      writeln;

      writeln('  La Cantidad De Blancos Son = ',numblancos(linea));

      writeln;

      writeln('   Pulse Una Tecla');

      readkey;

   end.

function Invertir_cadena (cadena : string) : string;

var

  longitud:byte; {longitud del string cadena }

  a:byte; { contador bucle }

  Xcadena:string;{ cadena temporal}

begin

longitud:=length(cadena);

for a:=longitud downto 1 do Xcadena:=Xcadena+cadena[a];

Invertir_cadena:=xcadena; { retorno de la funcion }

end;