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