Дана строка. Посчитать в ней кол-во вхождений букв: r, k, t

program zz1;

var s:string;

i, k1, k2, k3:integer;

begin

read (s); / /вводим исходную строку

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

if s[i]='r' then k1:=k1+1; / /считаем количество букв r

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

if s[i]='t' then k2:=k2+1; / /считаем количество букв r

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

if s[i]='k' then k3:=k3+1; / /считаем количество букв r

writeln ('количество букв r в исходной строке - ', k1); / /выводим ответы

writeln ('количество букв t в исходной строке - ', k2);

writeln ('количество букв k в исходной строке - ', k3);

end.