Дана строчка.Посчитать в ней кол-во вхождений букв: 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.