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

var s:string;
symbol: char;
count, i, j, max: integer; 
f: text;
begin
max := 0;
assign(f, '24.txt');
reset(f);
while not eof(f) do
begin
readln(f,s);
end;
for i := 2 to length(s) - 1 do begin
count := 0;
for j := i + 1 to length(s) do begin
if ((s[i] = s[j]) and (s[i - 1] = s[i +1])) then
count := count + 1;
end;
if (count > max) then begin
max := count;
symbol := s[i];
end;
end;
write(s[i]);
end.

var a,b,c,cmx: char;
    max: integer;
    f: text;
    s:array['A'..'Z'] of integer;
begin
for a:='A' to 'Z' do s[a]:=0;
assign(f, '24.txt');
reset(f);
read(f,a,b,c);
if a=b then inc(s[c]);
while not seekeof(f) do
 begin
  a:=b;
  b:=c;
  read(f,c);
  if not(c in [#13,#10])and(a=b) then inc(s[c]);
 end;
 close(f);
 max:=0;
 for a:='A' to 'Z' do
 if s[a]>max then
  begin
   max:=s[a];
   cmx:=a;
  end;
 write(cmx)
 end.

var s:string;
symbol: char;
count, i, j, max: integer;
begin
max := 0;
s := 'sasbsascfcacaaabab';
for i := 2 to length(s) - 1 do begin
count := 0;
for j := i + 1 to length(s) do begin
if ((s[i] = s[j]) and (s[i - 1] = s[i +1])) then
count := count + 1;
end;
if (count > max) then begin
max := count;
symbol := s[i];
end;
end;
write(s[i]);
end.