Во введенной строке подсчитайте количество символов "*" и символов "!". Информатика....

Var
s:string;
i,n1,n2:integer;
begin
Write('Введите строку: '); Readln(s);
n1:=0; n2:=0;
for i:=1 to Length(s) do
    case s[i] of
    '*':Inc(n1);
    '!':Inc(n2)
    end;
Writeln('Найдено *: ',n1,', !: ',n2)
end.

Тестовое решение:
Введите строку: Это *просто *!* тестовая строчка!!!
Найдено *: 3, !: 4