Из файла вывести максимальное количество повторений символа в строке

Var f:text;
    s:string;
    A:array[0..255] of byte;
    i,imax:byte;
Begin
    write('Введите строку: ');readln(s);
    Assign(f,'in.txt');Rewrite(f);
    writeln(f,s);
    Close(f);
    Reset(f);
    readln(f,s);
    For i:=1 to Length(s) do
     inc(A[ord(s[i])]);
    imax:=0;
    For i:=1 to 255 do
     if A[i]>A[imax] then imax:=i;
    writeln('Наиболее повторяемый символ = ',chr(imax),' повторений ',A[imax]);
    Close(f);
    readln;
End.

Var f:text;
    s:string;
    i,j,k,imax,max:byte;
Begin
    write('Введите строку: ');readln(s);
    Assign(f,'in.txt');Rewrite(f);
    writeln(f,s);
    Close(f);
    Reset(f);
    readln(f,s);
    imax:=0;max:=0;
    For i:=1 to Length(s) do
    Begin
      k:=0;
      For j:=i to Length(s) do
       if s[i]=s[j] then inc(k);
      if k>max then
      Begin
        imax:=ord(s[i]);
        max:=k;
      End;
    End;
    writeln('Наиболее повторяемый символ = ',chr(imax),' повторений ',max);
    Close(f);
    readln;
End.