Hitung Kata Dalam Kalimat

Program Hitung_Kata_dalam_Kalimat;
uses wincrt;

var kalimat:string;
jumlah:integer;

procedure jumlah_kata(kata:String; var jumlah:integer);
var i:integer;
begin
if(kata[1]='') then jumlah:=0
else jumlah:=1;
for i:=1 to length(kata) do
begin
if (kata[i]='') and (kata[i+1]<>'') and (kata[i+2]<>'') then inc(jumlah)
Else if (kata[i]=' ') and (kata[i-1]<>'') and (kata[i+1]<>'') then inc(jumlah);
end;
end;

begin
clrscr;
writeln(' ------------------------------------------------ ');
writeln(' PROGRAM MENGHITUNG JUMLAH KATA DALAM KALIMAT ');
writeln(' ------------------------------------------------ ');
writeln;
write(' Ketikkan sebuah kalimat : ');readln(kalimat);
jumlah_kata(kalimat,jumlah);
writeln(' Jumlah kata yang anda ketik : ',jumlah,' buah kata');
readkey;
end.