Mencari jumlah kata pada kalimat

Halo MasBro dan MbaBro ... Udah lama nih ngga update blog lagi :D *cengar cengir*
Sekalian review materi buat UTS, mau berbagi dulu nih ceritanya. Ngga jauh-jauh dari OPERASI STRING. Berdasarkan headlinenya, kita mau cara jumlah kata yang ada pada suatu kalimat. Langsung ke TKP aja yuk :D

Ayo disiapin dulu perlengkapan perangnya !!! ^_^

uses crt;

var a,b : string;
    k,l : integer;

begin
clrscr;
l:=1;
writeln('Menghitung banyaknya kata');
writeln('-------------------------');
writeln;
writeln('Masukkan kalimat : ');
readln(a);
for k := 1 to length(a) do
    begin
    b := copy(a,k,1);
    if (b=' ') then l := l+1;
    end;
writeln;
writeln('Jumlah kata adalah sebanyak ',l);
readln;
end.

Codingan diatas ini, saya buat dengan Pascal. Selamat Mencoba :D kalau mau bertanya, comment aja ;)