Почему не работает программа? Пишет: "Индекс находился вне границ массива"

Program ABC8;
const nmax=10000;
type tmas=array[1..nmax] of integer;
var
  a:tmas;
  j,n:integer;
  
 
function Chisla(x:integer):boolean;
begin
  Chisla:=false;
  while x>10 do 
     x:=x div 10;
  if x=2 then Chisla:=true;
end;   
 
function abc (n:integer):integer;
var sum:integer;
begin
   sum:=0;
   while n>0 do 
    begin
     sum:= sum + n mod 10;
     n:=n div 10
    end;
  abc:=sum;
end;   
 
procedure dubl(var b:tmas;var n:integer);
var k,i,m:integer;
begin
for i:=1 to n do
if abc(b[k])=25 then
for k:=n downto i do begin
a[k+1]:=a[k];
n:=n+1;
end;
end;
 
 
procedure del(var b:tmas;var k:integer);
var i,m:integer;
begin
i:=1;
while i<=k do
 if Chisla(b[i])=true then 
  begin
    for m:=i to k-1 do b[m]:=b[m+1];
    dec(k);
  end
 else inc(i);
end;
 
begin 
writeln('Введите количество элементов последовательности');
readln(n);
writeln('Введите числовую последовательность');
for j:=1 to n do 
read(a[j]);
del(a,n);
dubl(a,n);
writeln ('Новый массив А: ');
 for j:=1 to n do write (a[j]:4,' ');
end.