Во введённой строке подсчитайте количество символов ‘*’ и символов ‘!’- Pascal(Паскаль)

var
 s:string;
 k,k2,i:integer;
begin
 readln(s);
 k:=0; k2:=0;
 for i:=1 to length(s) do
  begin
     if s[i]='*' then inc(k);
     if s[i]='!' then inc(k2);
  end;
 writeln('Символов *=',k,' Символов !=',k2);
end.