Получить 10 наиболее часто встречающихся букв и число их появления

Program lab5;
const
n=100;
var
f:text;
x,i,k,j: integer;
ch:char;
m:array [1..n] of char;
begin
 
assign(f, 'E:\Pascal\lab5\1.txt');
reset(f);
 
i:=1;
 
 
while not (EOF(f)) and (i<=n)  do
  begin
 
  read(f, m[i]);
  inc(i);
  end;
 
 
 for i:=1 to n do
 begin
 write(m[i]);
 end;
writeln;
 
 
for j:=1 to n do
 begin
  x:=0;
  ch:=m[j];
 
  for i:=1 to n do
  if m[i]=ch then inc(x);
  writeln('Элемент ',ch,' встречается ',x,' раз');
 
    end;
 
    
close(f);
 
end.

Program lab5;
const
n=500;
var
f:text;
max,z,a,x,i,k,j: integer;
ch,ch1,ch2:char;
m:string;
//m1:array [a] of char;
//z:array [1..500] of integer;
begin
 
assign(f, 'F:\Pascal\lab5\1.txt');
reset(f);
 
 
 
 
while not (EOF(f)) and (i<=n)  do
  begin
  
  read(f, m);
 
  inc(i);
  end;
 
If Length(m) >= max then max:=Length(m);
 
 
write(m);
 
writeln;
 
 
for j:=1 to max do
 begin
  x:=0;
  ch:=m[j];
 
  for i:=1 to max do
 
 
  if m[i]=ch then inc(x);
  
  writeln('Элемент ',ch,' встречается ',x,' раз');
  
  
  
    end;
    
writeln('Всего букв ', max);
 
close(f);
 
end.

Program lab5;
const
n=1000;
 
var
f:text;             //сам текст
f1:text;            //текст с символами
 
x,i,k,j: integer;
a:integer;          //максимальное количество повторений
max,max1:integer;   //длина строки(текста и текста с символами)
ch:char;            
m,m1:string;        
 
 
begin
 
assign(f, 'E:\Pascal\lab5\1.txt');
assign(f1, 'E:\Pascal\lab5\2.txt');
 
reset(f);
reset(f1);
 
 
while not (EOF(f)) and (i<=n)  do
  begin
  read(f,m);
  inc(i);
  end;
  
  while not (EOF(f1)) and (i<=n)  do
  begin
  read(f1,m1);
  inc(i);
  end;
 
If Length(m) >= max then max:=Length(m);
If Length(m1) >= max1 then max1:=Length(m1);
 
write(m);
writeln;
 
 
 
 repeat
for j:=1 to max1 do
 begin
   x:=0;
   ch:=m1[j];
    for i:=1 to max do
     if m[i]=ch then inc(x);    //Поиск наибольшего числа повторений (переменная a)
     if a<x then a:=x;
    end;
 
 
 
 
 
     for j:=1 to max1 do
 begin
   
   x:=0;
   ch:=m1[j];
   
    for i:=1 to max do
    begin
     if m[i]=ch then inc(x);
     
     end;
     
 
     if (x=a) and (x<>0) then
    begin  
    writeln('Элемент ',ch,' встречается ',x,' раз');
    m1[j]:='&';
    a:=0; 
    inc(k);
    end;
     
  
 
    end;
  until k=10;   
 
 
  
writeln('Всего символов ', max);
 
 
 
close(f);
close(f1);
 
end.