Girilen bir metnin boşluk sayısından giderek kelime sayısını hesaplayacağız
Kodlar şu şekilde;


Var
Metin:string; s,sil:integer;
Begin
Write('metin giriniz'); readln(metin);
Repeat
Sil:=pos(' ',metin);
S:=s+1;
Delete(metin,sil,1);
Until pos(' ',metin)=0;
Write('Toplam: ',s);
Readln;
End.


Kaynak: http://www.tekno-logy.com/pascal-bir-metindeki-kelime-sayisini-bulmak.html