Я думаю это должно быть, как минимум так:
Код:
var
a,b,c,i:byte;
s:string;
begin
a:=0;
b:=a;
c:=a;
writeln ('Enter srting');
readln (s);
for i:=1 to length(s) do begin
if s[i]='*' then inc(a);
if s[i]=';' then inc(b);
if s[i]=':' then inc(c);
end;
writeln ('* =',a);
writeln ('; =',b);
writeln (': =',c);
readln
end.