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

var a: stringпа; i,f,j,m,r: integer; b,n: char; begin readln (a); for b := а to я do begin f := 0; for i := 1 to length (a) do begin if a [i] = b then f := f + 1 end; if fgt;m then begin m:=f; n:=b; end; end; writeln (Почаще всего в строке употребляется знак , n ,, , m , раз(a)) end.

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.