дана строка. подсчитать, сколько в ней букв r, k, t. DELPHI.

Var S:string;    i,r,k,t:integer;Beginr:=0;k:=0;t:=0;Write('Введите строку: ');ReadLn(S);For i:= 1 to Length(S) do    Case S[i] of    'r':r:=r+1;    'k':k:=k+1;    't':t:=t+1;    End;WriteLn('r: ',r);WriteLn('k: ',k);WriteLn('t: ',t);End.