Дана символьная строка. Подсчитать в ней количество букв r,k,t — Pascal(Паскаль)

program bor;

var s:string;
    a,b,c,i:integer;
begin write('введите строку:');
      readln(s);
      a:=0;b:=0;c:=0;
      for i:=1 to length(s) do
        begin if s[i]='r' then a:=a+1;
              if s[i]='k' then b:=b+1;
              if s[i]='t' then c:=c+1
        end;
      writeln('Количество букв r=',a);
      writeln('Количество букв k=',b);
      writeln('Количество букв t=',c);
end.