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

program zz1;

var s:string; / / задаем переменную строкового типа

i, k1, k2:integer; / / задаем переменную целого типа

begin

write (' введите строку ');

read (s); / / вводим с клавиатуры строку

for i:=1 to length (s) do / / организуем цикл, в котором переберем все символы от первого до последнего

begin

if s[i] = '*' then k1:=k1 + 1; / / подсчитываем количество символов *

if s[i] = '!' then k2:=k2 + 1; / / подсчитываем количество символов!

end;

writeln (' количество "*" = ', k1);

writeln (' количество "!" = ', k2);

end.