Program Menghitung Karakter

program penghitungkarakter;
uses wincrt;
var
   stringInput, x: string;
   jumlahHuruf,jumlahNonHuruf,jumlah, i: integer;
begin
    write('masukan kata:');
     readln(stringInput);
     x:= stringInput;
     jumlah:=0;
     for i:= 1 to length (x) do
         begin
         if (x[i] in ['A'..'Z','a'..'z']) then jumlah:=jumlah + 1;
         end;
         jumlahHuruf:=jumlah;

         jumlah:=0;
         for i:= 1 to length (x) do
         begin
         if (not(x[i] in ['A'..'Z','a'..'z'])) then jumlah:=jumlah + 1;
         end;
         jumlahNonHuruf:=jumlah;
         writeln(jumlahNonHuruf+jumlahHuruf);
end.