Вывести все буквы, которые входят в наибольшее количество слов строки

var
  i,j:integer;
  s,b:string;
  a:array[char] of integer;
  c,t:char;
begin
  write('Введите строку:');
  readln(s);
  s:=s+' ';b:='';
  for i:=1 to length(s) do
    if s[i]=#32 then begin
      for j:=1 to length(b) do
        if pos(b[j],b)=j then Inc(a[b[j]]);
    b:='';
  end else b:=b+s[i];
  t:=#0;
  for c:=#0 to #255 do if a[t]<a[c] then t:=c;
  writeln('Буквы входящие в наибольшее количество слов:');
  for c:=#0 to #255 do
    if a[t]=a[c] then write(c+#32);
  readln;
end.

const
  LC: String[33] = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
  UC: String[33] = 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
var
  s: String;
  a: array [Char] of Integer;
  b: set of Char;
  c: Char;
  i, m: Integer;
begin
  Write('Введите строку: '); ReadLn(s);
  s:=s+' '; b:=[];
  for i:=1 to Length(s) do begin
    case s[i] of
    'a'..'z':
      s[i]:=UpCase(s[i]);
    'а'..'п','р'..'я','ё':
      s[i]:=UC[Pos(s[i],LC)];
    end;
    if s[i]=' ' then begin
      for c:=#0 to #255 do if c in b then Inc(a[c]);
      b:=[];
    end else Include(b,s[i]);
  end;
  WriteLn('Буквы, входящие в наибольшее количество слов:');
  m:=0; for c:=#0 to #255 do if m<a[c] then m:=a[c];
  for c:=#0 to #255 do if m=a[c] then Write(' ',c);
  ReadLn;
end.