Program Pencari Huruf A dengan Mesin Karakter

Hmmm....yang saya dapat pas praktikum kemaren bukan cuma tentang bikin program pembalik kata aja, tapi juga tentang membuat program pencari huruf A dengan mesin karakter.

Program hitungA ;
uses wincrt ;
type
angka = 1..22;
larik = array[angka] of char ;
const
Kalimat : Larik = ('W','H','E','N',' ','S','A','N','G','K','A','L','A',' ','T','A','L','K','I','N','G','.');
var
i, jml : integer ;
begin
if kalimat[1]='.' then
   writeln('ini teks kosong!')
else
   begin
   i:=1;
   jml:=0    ;
   while kalimat[i]<> '.' do
         begin
         write(kalimat[i]);
         if kalimat [i] = 'A' then
         inc(jml);
         inc(i);
         end;
   end;
   writeln;
   writeln ('frekuensi huruf A:  ',jml, ' biji doank');
end.

Ini penampakannya setelah program tersebut di running