Menghitung Jumlah Kata Dalam Kalimat

program menghitung_jumlah_kata;
uses crt;
var JumKal      : integer;
    Kal         : string;
    Ch          : char;

procedure CekJKal (Teks : String; Var JK : integer);
var i           : integer;
begin
 if (teks[1] = ' ') then
  JK := 0
 else
  JK := 1;
 for i := 1 to Length(Teks) do
  begin
   if (teks[i] = ' ') and (teks[i+1]<>' ') and (teks[i+2]<>' ') then
    inc(JK)
   else if (teks[i] = '-') and (teks[i-1]<>' ') and (teks[i+1] <> ' ') then
    inc(JK);
  end;
end;

begin
 repeat
  clrscr;
  writeln ('program menghitung jumlah kata dalam kalimat');
  writeln ('============================================');
  writeln;
  write   ('masukkan kalimat : '); readln(kal);
  CekJKal(Kal,JumKal);
  writeln;
  writeln ('Jumlah Kata Dalam Kalimat Diatas = ',JumKal,' Kata');
  writeln;
  Write ('mau ulang lagi [Y/T] ? '); readln(ch);
 until upcase(ch) = 'T';
end.