Выход за границы массива

program master4;
Var a: array [1..34] of byte;
Procedure print;
Var i: byte;
Begin
I:=0;
For i:=1 to 34 do
write('[', a[i], ']')
End;
 
Procedure generate;
Var i: byte;
Begin
I:=0;
For i:=1 to 34 do
a[i]:=random(15)-7;
Print;
Writeln;
End;
 
Procedure CalcGarmon;
Var i, n: byte;
s: real;
Begin
I:=0;n:=0;s:=0;
for i:=1 to 10 do 
If i mod 3=0 then 
Begin
Inc(n);
s:=s+1/a[i+24];
End;
S:=n/s;
Writeln('Ср. гарм: ',s);
End;
 
Procedure FindMinAbs;
Var i, min: byte;
Begin
I:=0;min:=999;
For i:=11 to 22 do
if a[i]=0 then continue
Else
If a[i] mod 2=0 then
If abs(a[i])<min then min:=abs(a[i]);
Writeln('Мин. по модулю: ',min);
End;
 
Procedure SortBySqr;
Var i, j, buf: byte;
b: array [1..17] of byte; 
Begin
I:=0;j:=0;buf:=0;
For i:=1 to 17 do
If a[i]>=0 then continue
Else
Begin
b[i]:=a[i];
A[i]:=999;
End;
 
For i:=2 to 34 do
Begin
Buf:=sqr(b[i]);
J:=i-1;
While (j>=1) and (sqr(a[j])>buf) do
Begin
a[j+1]:=a[j];
Dec(j);
a[j+1]:=buf;
End;
End;
 
For i:=1 to 17 do
if a[i]=999 then a[i]:=b[i];
Print;
End;
 
Begin
writeln('Массив:');
Generate; //1
Calcgarmon; //2
FindMinAbs; //3
SortBySqr; //4
End.