Дана строка определить сколько в ней *: ;

Var
  i,x,y,z:integer;
  s:string;
begin
readln(s);
for i:=1 to length(s) do
  begin
  if s[i]='*' then x:=x+1;
  if s[i]=':' then y:=y+1;
  if s[i]=';' then z:=z+1;
  end;
writeln('* ',x);
writeln(': ',y);
writeln('; ',z);
end.