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

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