Индекс уходит за пределы массива при обнулении одного из элементов

program qq;
//uses
//crt;
const N=3;
const M=100;
const M1=100;
var
    F:array of integer;
    Q: array[1..N,1..M] of integer;
    i, c, b, k, x, j, l: integer; 
begin
    writeln ('Сколько звеньев участвует в цепи? ');
    readln (x);
    writeln ('Введите через пробел: тип звена(1 - замыкающее звено; 2 - составляющее звено),  координаты начала и конца звена:');
    for j := 1 to x do
        for i := 1 to N do
            read (Q[i,j]);
 writeln ('Таблица значений:');
 writeln ('Номер звена  ':3,'|   Тип','   ','|  начало звена  |':7,'  конец звена  |':7);
    for j := 1 to x do begin
    write ('A',j);
        for i := 1 to N do
            write (Q[i,j]:15);
        writeln;
    end;
   for j:=1 to x do
    if Q[1,j]=1 then begin                                                 
    b:=j;
    
    writeln ('Замыкающее звено: А',b);
    writeln;
    end;
l:=(3*x)+1;
setlength(F, l);
k:=0;
for j:=1 to x do begin
  for i:=1 to N do begin
  k:=k+1;
  F[k]:=Q[i,j];
  end;
end;
write('A▲=');
k:=1;
  while F[k]=2 do k:=k+3;
  c:=F[k+2];
  F[k+2]:=0;
  F[k+1]:=0;
  repeat
  k:=1;
  while (F[k]<>c) or (k mod 3=1) do k+=1;
  if k mod 3=0 then begin
  write('+A',k div 3); 
  c:=F[k-1]; 
  F[k-1]:=0; 
  end
  else begin 
  write('-A',((k div 3) +1)); 
  c:=F[k+1]; 
  F[k+1]:=0; 
  end;
  until c=0;
 // readkey;
end.