Обработка одномерных массивов. пользователь вводит слово. подсчитать количество букв d, c и k в этом слове.

Var s: string;
    ch: char; 
   i,d,c,k: integer;
begin
  write('слово:  ');  readln(s);
  i:=1; d:=0;  c:=0;  k:=0;
  repeat 
   ch:=s[i];
    case ch of 
      'd': d:=d+1;
      'c': c:=c+1;
      'k': k:=k+1;
    end;
    i:=i+1;
  until i>length(s);
  writeln('кол-во d = ',d,'  кол-во c = ',c,'  кол-во k = ',k);
end.