Текстовый файл состоит не более чем из 106 заглавных латинских букв. Определите
символ, который чаще всего встречается в файле сразу после буквы X. В ответе
запишите сначала этот символ, а потом сразу (без разделителя) сколько раз он
встретился после буквы X. Например, в тексте XBCXXBXDDD после буквы X два раза
стоит B, по одному разу – X и D. Для этого текста ответом будет B2.
Подскажите, где ошибка в программе
var
n: array [1..26] of integer;
f:text;
s: string;
i,k,maxn,c: longint;
begin
assign (f,'C:\Users\Admin\Desktop\УКПАИ.txt');
reset(f);
readln(f, s);
maxn := 0;
for i := 1 to 26 do
n[ i] := 0;
for i := 1 to length(s)-1
do
begin
if (s[ i] = 'X') then
begin
n[ ord( s[ i + 1]) -64] += 1;
end;
end;
for i := 1 to 26 do
if n[ i] > maxn then
begin
maxn := n[ i];
c := i;
end;
write(chr(c + 64),maxn);
close(f);
end.