Hitung Kata Versi NotePad

Program Hitung_Katakuandri;

uses wincrt;

var

            T:text;

            C: char;

            Ta: integer;

Procedure Hitung(var i:integer);

begin               

            assign (T,'D:/prokom/Lebay.txt');

            reset (T) ;

            read (T,C);

            if (C='.') then

            i:= -99

            else

            i:=1   ;

            repeat

                        if (C= ' ') then

                        begin

                        i:= i+1;

                        end;

                        read (T,C);

                        until (C='.');

            end;

begin

            writeln;

            Hitung(Ta);

            writeln(' ### Program Menghitung Kata Dalam Kalimat ### ');

            writeln('=====================================');

            writeln;

            writeln('Jumlah Kata Dalam Notepadku Adalah =  ',Ta);

            end.