Обработка одномерных массивов.

Пользователь вводит слово. Подсчитать количество букв 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.