Пользователь вводит текст, признаком конца которого является точка. Определить каких букв больше в заданном тексте «т», «к» или «р» — Pascal(Паскаль)

uses CRT;
var
 c: char;
 T,K,R: byte;
 S: string;
Begin
 S:='';
 T:=0;
 K:=0;
 R:=0;
 repeat
  c:= readkey;
  S:=S+c;
  write(c);
 until c='.';
 While S<>'' do
  Begin
   Case S[1] of
    'т': inc(T);
    'к': inc(K);
    'р': inc(R);
   end;
   delete(S,1,1);
  End;
 If T>=K then
 if T>=R then writeln('т больше')
 else writeln('р больше')
 else writeln('к больше');
 Readln;
End.