Pascal : Coding Hitung Kata dalam Kalimat

Program Hitung_Kata_dalam_Kalimat;
uses crt;

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.