Ошибка времени выполнения: Индекс находился вне границ массива

var
a: array [0..9] of integer; 
ch: char;    
num, i, j:byte;  
min, k: integer;  
begin
for i:=0 to 9 do 
a[i]:=0;   
read(ch);  
while ch<>'.' do 
begin
num:=ord(ch)-48; 
a[num]:=a[num]+1;
read(ch); 
end; 
for i:=0 to 9 do  
begin
min:=a[0]; 
k:=0;      
for j:=0 to 9 do  
begin
if a[j]<min then 
begin
min:=a[j]; 
k:=j;
end;
end;
if a[k]<>0 then
write(k,' ');
a[k]:=maxint;
end;
end.

var a: array [0..9] of integer; 
    ch: char;    
 
 procedure FillArray;
 var num, i, j: byte;
 begin 
  for i:= 0 to 9 do
   a[i]:= 0;   
  readln(ch);  
  while ch<>'.' do 
   begin
    num:= ord(ch)-48; 
    a[num]:= a[num]+1;
    readln(ch); 
   end; 
 end;
 
 procedure Ascending;
 var i, j: byte;
     min, k: integer;  
 begin 
  for i:= 0 to 9 do  
   begin
    min:= a[0]; 
    k:= 0;      
    for j:= 0 to 9 do  
     begin
      if a[j]<min then 
       begin
        min:= a[j]; 
        k:= j;
       end;
     end;
    if a[k]<>0 then
     write(k,' ');
    a[k]:= maxint;
   end; 
 end;
 
begin
 FillArray;
 Ascending; 
end.

 procedure FillArray(var a:array of integer);
 var i: integer;
    ch: char;
 begin 
   for i:= 0 to 9 do  a[i]:= 0;   
   read(ch);  
   while ch<>'.' do begin
      Inc( a[ord(ch)-ord('0')]); 
      read(ch); 
   end; 
   ReadLn
 end;
 
 procedure Ascending(a:array of integer);
 var i, j, k : integer;  
 begin 
  repeat
    k:=0;
    while (k<=9) and (a[k]=0) do Inc(k);
    for j:=k+1 to 9 do
       if (a[j]>0) and (a[j]<a[k]) then k:=j;
    if k<=9 then begin
         write(k,' ');
         a[k]:= 0;
    end
  until k>9;
 end;
 
var a: array [0..9] of integer; 
 
begin
 FillArray(a);
 Ascending(a); 
end.

 type TMyArray =array [0..9] of integer;
 procedure FillArray(var a: TMyArray);
 var i: integer;
    ch: char;
 begin 
   for i:= 0 to 9 do  a[i]:= 0;   
   read(ch);  
   while ch<>'.' do begin
      Inc( a[ord(ch)-ord('0')]); 
      read(ch); 
   end; 
   ReadLn
 end;
 
 procedure Ascending(a: TMyArray);
 var i, j, k : integer;  
 begin 
  repeat
    k:=0;
    while (k<=9) and (a[k]=0) do Inc(k);
    for j:=k+1 to 9 do
       if (a[j]>0) and (a[j]<a[k]) then k:=j;
    if k<=9 then begin
         write(k,' ');
         a[k]:= 0;
    end
  until k>9;
 end;
 
var
  a: TMyArray;
begin
 FillArray(a);
 Ascending(a); 
end.

      if ch in ['0'..'9'] then Inc( a[ord(ch)-ord('0')]);