Решение СЛАУ методом простых итераций

program lab7;
var
n,iter,i,j:integer;  e:real;
b,x,x0:array[1..6] of real;
a:array[1..6,1..6] of real ;
label 1;
  begin
e:= 0.001;
b[1]:=-26.32; b[2]:=13.22; b[3]:=23.50;
b[4]:=-20.28; b[5]:=13.06; b[6]:=-29.17;
a[1,1]:=0.4; a[1,2]:=0.6; a[1,3]:=2.2;
a[1,4]:=5.4; a[1,5]:=-1.2; a[1,6]:=-0.1;
a[2,1]:=1.7; a[2,2]:=-2.2; a[2,3]:=4.1;
a[2,4]:=-3.2; a[2,5]:=1.9; a[2,6]:=2.1;
a[3,1]:=-2.0; a[3,2]:=-1.1; a[3,3]:=0.0;
a[3,4]:=0.2; a[3,5]:=6.8; a[3,6]:=1.2;
a[4,1]:=3.1; a[4,2]:=-2.4; a[4,3]:=-3.8;
a[4,4]:=2.0; a[4,5]:=0.0; a[4,6]:=4.6;
a[5,1]:=-0.9; a[5,2]:=6.8; a[5,3]:=1.6;
a[5,4]:=-0.2; a[5,5]:=1.2; a[5,6]:=-1.0;
a[6,1]:=4.5; a[6,2]:=2.4; a[6,3]:=-2.0;
a[6,4]:=3.9; a[6,5]:=-1.1; a[6,6]:=4.1;
 
 for i:=1 to n do
 x0[i]:=b[i];
 {ввод а }
 iter:=0;
1: iter:=iter+1;
 for i :=1 to n do
 x[i]:=b[i]/a[i,i];
  for j:=1 to n do
   if (i<>j) then
    x[i]:=x[i]-((a[i,j]*x0[j])/a[i,i]);
   x0[i]:=x[i];
  for i:= 1 to n do
  if (abs(x[i]-x0[i])>e) then
   goto 1
   else
  writeln('iter=  ',iter);
  for i:= 1 to n do
  writeln('x',i,'=',x[i]);
  end.

type
  tVector= array [1..6] of double;
  tMatrix= array[1..6,1..6] of double;
 
const
  n=6;
  b: tVector=
    (-26.32,  13.22,  23.50, -20.28,  13.06, -29.17);
  a: tMatrix= (
    ( 0.4,  0.6,  2.2,  5.4, -1.2, -0.1),
    ( 1.7, -2.2,  4.1, -3.2,  1.9,  2.1),
    (-2.0, -1.1,  0.0,  0.2,  6.8,  1.2),
    ( 3.1, -2.4, -3.8,  2.0,  0.0,  4.6),
    (-0.9,  6.8,  1.6, -0.2,  1.2, -1.0),
    ( 4.5,  2.4, -2.0,  3.9, -1.1,  4.1)
  );
 
var
  iter,i,j: integer;
  e: double;
  x,x0: tVector;
  GameOver: boolean;
 
begin
  e:= 0.001;
  x0:=b;
  iter:=0;
  repeat
    Inc(iter);
.....