Pascal/Turbo Pascal - programa que cuente la cantidad de letras que tiene una palabra

uses crt;

var

	cadena:string;

	i,c:integer;

begin

	clrscr;

	cadena:='ayer vi una hormiga';

	c:=0;

	for i:=1 to length(cadena) do begin

		if cadena[i] <> ' ' then

			inc(c);

	end;

	writeln('La palabra tiene ',c,' letras');

end.