Вывести на экран только те символы, которые встречаются в строке более трех раз

## ReadString
.EachCount
.Where(kvp->kvp.Value>3)
.PrintLines;

var
s:String;
i:integer;
c:integer;
begin
 
 writeln('Vvedite stroky:');
 readln(s);
 
 i:=1;
 while(i<=Length(s)) do 
 begin
 c:=ord(s[i]); 
 if not((65<=c) AND (c<=90) OR ((128<=c) AND (c<=159))) //проверка,
заглавный символ или нет
 then Delete(s,i,1) 
 else i:=i+1; 
 end;
 
 writeln('Resultat: ',s);
 writeln;
 readln;
 end.

/// Возвращает частотный словарь объектов последовательности
function EachCount<T>(Self: sequence of T): Dictionary<T,integer>; extensionmethod;
begin
  Result := Self.GroupBy(x->x).ToDictionary(g -> g.Key, g -> g.Count);
end;

## var counts := new Dictionary<char, integer>;
foreach var ch in ReadString do
  counts[ch] := counts.Get(ch)+1;
foreach var kvp in counts do
  if kvp.Value>3 then
    Println(kvp);

## var counts := new Dictionary<char, integer>;
foreach var ch in ReadString do
begin
  var c: integer;
  if not counts.TryGetValue(ch, c) then
    c := 0; // На самом деле не обязательно, TryGetValue обнуляет если не нашло
  counts[ch] := c+1;
end;
foreach var kvp in counts do
  if kvp.Value>3 then
    Println(kvp);

var 
  i:integer;
  c:array[char] of integer;
  s:string;
  b:boolean;
begin
  write('введите строку:');readln(s);
  for i:=1 to length(s) do inc(c[s[i]]);
  b:=false;
  for i:=1 to length(s) do 
    if c[s[i]]>3 then begin
      writeln(''''+s[i]+'''':5,':',c[s[i]]-1:5);//полагаю, что число повторений на единицу меньше чем количество встречаемых букв
      c[s[i]]:=0;
      b:=true;   
    end;
   if not b then writeln('в строке нет повтора символов более 3'); 
end.