Сортировка подсчетом (CountingSort) c++

//pascal abc.net v3.0 сборка 1111 type   ty=set of char; const   t: ty=['a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z','a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z']; var   f: text;   s: string;   i,slo,ks: integer;   k: real; begin   assign(f,'text.in');   reset(f);   while not eof(f) do  read(f,s);   close(f);   slo: =0;   ks: =0;   for i: =1 to length(s) do   if s[i] in t then inc(slo) else   begin;     k: =k+slo;     inc(ks);     slo: =0;   end;   if s[length(s)] in t then   begin;     inc(ks);     k: =k+slo;   end;   k: =k/ks;   assign(f,'text.out');   rewrite(f);   write(f,k);   close(f);   end.   пример ввода(text.in): simple textпример вывода(text.out): 5