Ошибка в инструкции. Не знаю как исправить

program steklo;
uses crt;
var a,n,g:integer; b:array[0..1000]of integer;
begin clrscr; g:=0;
read(n); if (n<1) or (n>2000) then exit;
for a:= 0 to 6*n do read(b[a]);
write(b[a]);write(' ',a);readkey;
repeat repeat
if sqrt(sqr(b[1]-b[2])+sqr(b[3]-b[4]))=
sqrt(sqr(b[7]-b[8])+sqr(b[9]-b[10])) {formula dliny storony}
then b[7]:=b[7+2]; b[8]:=b[8+2]; b[9]:=b[9+2]; b[10]:=b[10+2];
else g:=g+1;
until true;
b[1]:=b[1+2]; b[2]:=b[2+2]; b[3]:=b[3+2]; b[4]:=b[4+2];
until true;
if (g>((3*n)-n*2)) then writeln('nelsya sobrat`'); readkey; exit;
else writeln('mojjno sobrat`');
readkey;
end.

program steklo;
  uses crt;
  var a,n,g:integer; b:array[0..1000]of integer;
 
begin
  clrscr;
  g:=0;
  read(n);
  if (n<1) or (n>2000) then exit;
 
  for a:= 0 to 6*n do read(b[a]);
  write(b[a]);
  write(' ',a);
  readkey;
  repeat
    repeat
      if sqrt(sqr(b[1]-b[2])+sqr(b[3]-b[4]))=
         sqrt(sqr(b[7]-b[8])+sqr(b[9]-b[10])) {formula dliny storony}
      then
        begin
          b[7]:=b[7+2];
          b[8]:=b[8+2];
          b[9]:=b[9+2];
          b[10]:=b[10+2];
        end
      else
        g:=g+1;
    until true;
 
    b[1]:=b[1+2];
    b[2]:=b[2+2];
    b[3]:=b[3+2];
    b[4]:=b[4+2];
  until true;
 
  if (g>((3*n)-n*2))
  then
    begin
      writeln('nelsya sobrat`');
      readkey;
      exit;
    end
  else writeln('mojjno sobrat`');
  readkey;
end.