Написать программу через case!!!

[glebochek]

С клавиатуры вводится последовательность символов. Признак завершения ввода символ ch.

Символ ch присвоить точке (.). Определить количество вхождения цифр, больших букв латиницы, маленьких букв латиницы и других символов последовательности.

Нужно прогу ниже переделать через case, но не знаю как.

uses crt;
var ch:char;
chis,mal,bol,simvol:byte;
begin
clrscr;
chis:=0; mal:=0; bol:=0; simvol:=0;
repeat
read(ch);
if ch in['0'..'9'] then
chis:=chis+1;
if ch in['A'..'Z'] then bol:=bol+1;
if ch in['a'..'z'] then mal:=mal+1;
if ch in ['!','@','#','$','%','^','&','*','(' ,')','_','-','=','+','\','|',' ',
'{','}','~','`','[',']',',','.',':',';','?','/']

then simvol:=simvol+1;
until ch='.';
readln;
writeln('kolichestvo chisel ' , chis );
writeln('kolichestvo malenkix bukv ' , mal );
writeln('kolichestvo bolchih bukv ' , bol);
writeln('kolichestvo drugix simvolov ' , simvol);
readln;
end.

[<- DelpHIFanat ->]

Переписал с Case.

uses crt;
var 
  ch:char;
  chis,mal,bol,simvol:byte;
begin
  clrscr;
  chis:=0; mal:=0; bol:=0; simvol:=0;
  repeat
    read(ch);

    Case ch Of
      '0'..'9': chis:=chis+1;
      'A'..'Z': bol:=bol+1;
      'a'..'z': mal:=mal+1;
      '!','@','#','$','%','^','&','*','(' ,')','_','-','=','+','\','|',' ',
      '{','}','~','`','[',']',',','.',':',';','?','/': simvol:=simvol+1;
    End;

   until ch='.';
    readln;
  writeln('kolichestvo chisel ' , chis );
  writeln('kolichestvo malenkix bukv ' , mal );
  writeln('kolichestvo bolchih bukv ' , bol);
  writeln('kolichestvo drugix simvolov ' , simvol);
  readln;
end.

И ещё: не просто рекомендую форматировать код, а призываю к этому, а то Ваш код: называетсяполомайглаза.

[glebochek]

Спасибо большое!!