Найти в строке из файла чаще всего встречающийся символ и записать его в другой файл

Const RusChar = ['А'..'Я','а'..'п','р'..'я','Ё','ё'];
Var
  m  : array[0..255] of Longint;
  i  : Byte;
  St : String;
Begin
  For i:=0 to 255 do m[i]:=0;
  {Readln(St);} St:='сегодня днём над городом прошел дождь';
  For i:=1 to Length(St) do
    If St[i] in RusChar then Inc(m[Ord(St[i])]);
  For i:=0 to 255 do
    If m[i]<>0 then Writeln(Chr(i),' - ',m[i]);
End.

Type
  tM = Record
         Ch : Char;
         Ss : Word;
       end;
Var
  i,j : Byte;
  m   : array [0..255] of tM;
  mm  : tM;
  St  : String;
 
Begin
  For i:=0 to 255 do
  Begin
    m[i].Ch:=Chr(i);
    m[i].Ss:=0;
  End;
  Write('Строка*?: '); Readln(St);
  For i:=1 to Length(st) do Inc(m[Ord(St[i])].Ss);
  For i:=0 to 254 do
   For j:=i+1 to 255 do
     If m[j].Ss>m[i].Ss then
     Begin
       mm:=m[j];
       m[j]:=m[i];
       m[i]:=mm;
     End;
  Writeln('Chastiy symbol: ',m[0].Ch,' - ',m[0].Ss);
  For i:=0 to 255 do
    If m[i].Ss>0 then Writeln(m[i].Ch,' - ',m[i].Ss)
End.