menghitung jumlah karakter kalimat dalam pascal

var
   kalimat:string;
   jumlah,vokal,a,b,i,konsonan:integer;
begin
   readln(kalimat);
   writeln('     MENGHITUNG KARAKTER DALAM KALIMAT      ');
   writeln('-------------------------------------------');
   jumlah:=length(kalimat);
   vokal:=0;
   a:=0;
   b:=0;
   konsonan:=0;
   writeln('kalimat:',kalimat);
   for i:=1 to jumlah do
      begin
         if upcase (kalimat[i]) in ['A','I','U','E','O'] then vokal:=vokal+1
         else konsonan:=konsonan+1;
         if upcase (kalimat[i]) in ['A'] THEN a:=a+1;
         if upcase (kalimat[i]) in ['B'] then b:=b+1;
         end;
   writeln('jumlah huruf         =',jumlah,'huruf');
   writeln('jumlah huruf vokal   =',vokal,'huruf');
   writeln('jumlah huruf a       =',a,'huruf');
   writeln('jumlah huruf b       =',b,'huruf');
   writeln('jumlah huruf konsonan=',konsonan,'huruf');
   readln;
end.


setelah dicompile,hasilnya adalah