Здравствуйте! Не можете ли вы предложить иной вариант решения данной задачи, кроме этой:
n:=0;
for i:=1 to length(s) do
if (s[i] in ['*',':',';']) then inc(n);
writeln(n);
Дана строка, состоящая из символов. Определить сколько в ней символов '*',';',':'
Со строкой надо работать как с единым объектом: использовать строковые процедуры и функции.