Сформировать случайную строку и определить, какой символ встречается в ней наибольшее число раз

const
  S = 'QWERTYUIOPASDFGHJKLZXCVBNMqwertyuiopasdfghjklzxcvbnm';
 
var
  C: array ['A'..'z'] of integer;
 
begin
  var S1 := '';
  for var i := 1 to ReadlnInteger('Length:') do
  begin
    var ch := S.Chars[1 + Random(49)];
    S1 += ch;
    Inc(C[ch]);
  end;
  
  var Max := 0;
  var MaxI := 'A';
  for var i := 'A' to 'z' do
    if C[i] > Max then
    begin
      Max := C[i];
      MaxI := i;
    end;
  
  WritelnFormat('В строке {0} чаще всего повторяется символ {1} ({2} раз).', S1, MaxI, Max);
end.

var
  C: array ['A'..'Z'] of integer;
  mx : integer;
  ch : char;
 
begin
  mx := 0;
  var S1 := '';
  for var i := 1 to ReadlnInteger('Length:') do
  begin
    ch := Chr(Ord('A') + Random(26)); // нужны только большие буквы
    // или другой способ получения рандомного символа, без тайпкастов
    // ch := 'A';
    // for var i := 1 to Random(26) do ch := Succ(ch);
 
    S1 += ch; 
    Inc(C[ch]);
    if C[ch] > mx then mx := C[ch]
  end;
  
  for var i := 'A' to 'Z' do
    if C[i] = mx then write(i:2);
  Writeln(' чаще всего присутствуют строке ', S1, ' : ', mx, ' раз(а)');
end.