С клавиатуры вводится символьная строка.Определите какой символ встречается в ней чаще всего

var a, a1 : string [100];i, f, j: integer; b : char; begin f := 0; readln (a); for b := \'а\' to \'я\' do f := 0; for i := 1 to length (a) do for j := 1 to length (a1) do begin if a [i] = b then f := f + 1 end; writeln (\'Чаще всего в строке используется символ \', b ,\'  \', f ,\'    раз\') end.

var a: stringпа;i,f,j,m,r: integer; b,n: char; begin readln (a); for b := \'а\' to \'я\' do beginf := 0; for i := 1 to length (a) do begin if a [i] = b then f := f + 1 end;if f>m then begin m:=f; n:=b; end;end; writeln (\'Чаще всего в строке используется символ \', n ,\', \', m ,\' раз(a)\') end.