Из файла считывается только одна строка (в процедуре max происходит выход за границы массива)

const numerals=['0'..'9'];
 
const nmax=9;
type vec = array ['0'..'9'] of integer;
 
 
 
procedure max (var mas:vec;  var str:string);
var ch,index:char; max:integer; 
begin
 
 repeat
 max:=0;
  for ch:='9' downto '0' do
   begin
   
   if max<mas[ch]then 
    begin
    max:=mas[ch];
    index:=ch;
    
    
    end;
   end;
   
   str:=index+str;
   mas [index]:=0;
   
   
   
 until (max=0);
 delete (str,1,1);
   
  
  
end;
 
 
 
procedure GetVectorOfFrequency (var s:string; var sres:string);
var i:integer; ch:char;   mas:vec;                                                                                                 
begin
 sres:='';
  for ch:='0' to '9' do  mas [ch]:=0;
  for i:=1 to length (s) do 
   if s[i] in numerals then 
    mas [s[i]]:=mas[s[i]]+1;
    
 
 max (mas,sres);
 
 end;
 
procedure FileToFile (var f, fres: text);
var s, sres :string;
begin
 reset (f); rewrite(fres);
 while not EOF (f) do begin
  readln (f,s);
  GetVectorOfFrequency (s,sres);
  writeln (fres,sres);
  end;
  close(f); close(fres);
 end; 
  
 
 
var  f, fres:text;
     fname1, fname2:string;
     b: boolean; 
     
 
begin {main}
 write ('Введите имя исходного файла: ');
 readln (fname1);
 fname1:=fname1+'.txt';
 b:=FileExists (fname1);
 writeln (b);
 if  FileExists (fname1) then begin
  assign (f,fname1);
  write ('Введите имя результирующего файла: '); 
  readln (fname2);
  fname2:=fname2+'.txt';
  assign (fres,fname2);
  FileToFile (f,fres);
  end;
  
end.  {main}

uses crt;
const numerals=['0'..'9'];
 
const nmax=9;
type vec = array ['0'..'9'] of integer;
 
procedure Task;
begin
  TextColor(8);
  writeln ('Задание:');
  writeln ('В исходном текстовом файле записаны строки, содержащие цифры в произвольном порядке, возможно разделенные другими символами. Требуется написать программу, которая для каждой строки исходного файла будет выводить в результирующий файл последовательность цифр (0,1..9) из входной последовательности в порядке увеличения частоты их встречаемости. Каждая цифра при этом должна быть распечатана один раз.Если какие-то цифры встречаются одинаковое число раз, то они выводятся по возрастанию.');
  
  
 
  writeln;
 end;
 
procedure max (var mas:vec;  var str:string);
var ch,index:char; max:integer; 
begin
str:='';
 repeat
 max:=0;
 index:='0';
 
  for ch:='9' downto '0' do
   begin
   
   if max<mas[ch]then 
    begin
    max:=mas[ch];
    index:=ch;
    end;
     
   end;
   
   str:=index+str;
   mas [index]:=0;
   until (max=0);
 delete (str,1,1);
end;
 
 
 
procedure GetVectorOfFrequency (var s,sres:string);
var i:integer;    mas:vec;                                                                                                 
begin
 
  
  for i:=1 to length (s) do 
   if s[i] in numerals then 
    mas [s[i]]:=mas[s[i]]+1;
    
 
 max (mas,sres);
 
 end;
 
procedure FileToFile (var f, fres: text);
var s,sres:string;
begin
 reset (f); rewrite(fres);
 while not EOF (f) do begin
  readln (f,s);
  GetVectorOfFrequency (s,sres);
  writeln (fres,sres);
  end;
  close(f); close(fres);
 end; 
  
 
 
var  f, fres:text;
     fname1, fname2:string;
     b: boolean; 
     
 
begin {main}
Task;
 TextColor(LightGray);
repeat 
 b:=true;
 write ('Введите имя исходного файла: ');
 readln (fname1);
 fname1:=fname1+'.txt';
 b:=FileExists (fname1);
 
 if  FileExists (fname1) then begin
  TextColor(12);
  writeln ('Исходный файл с таким именем существует!');
  TextColor(LightGray);
  assign (f,fname1);
  write ('Введите имя результирующего файла: '); 
  readln (fname2);
  fname2:=fname2+'.txt';
  assign (fres,fname2);
  FileToFile (f,fres);
  end
 
   else begin
     TextColor(12);
     writeln ('Исходного файла с таким именем не существует!');
     TextColor(LightGray);
     b:= false;
     writeln ('Попробуйте еще раз, введя имя существующего файла:');
     writeln;
     end;
 until (b=true) 
end.  {main}