Решить СЛАУ методом Жордана-Гаусса

Program gordan_gaus;
Const m=3;  m1=4;
Label 110,170,230,340,360,420,430,520,540,550;
Var A:array [1..m,1..m1] of Real;
    X: array [1..m] of Real;
    I1,I2,i,j,k,n:integer;
    Z,F,C,C1:real;
Begin
Writeln ('Введите расширенную матрицу А(',m,',',m1,')');
For i:=1 to m do
  For j:=1 to m1 do Read (A[i,j]);
N:=0;
110 : N:=N+1;
F:=A[n,n];
K:=N;
For i:=n to m do if Abs(F)-Abs(A[i,n])>=0 then goto 170;
F:=A[i,n];
K:=I;
170 :
If N=K then goto 230;
For j:=1 to m1 do Begin
           Z:=A[n,j];
           A[n,j]:=A[k,j];
           A[k,j]:=Z;
          End;
230 : If A[n,n]=0 then goto 360;
I:=N; C:=A[i,i];
For j:=1 to m1 do A[i,j]:=A[i,j]/C;
For k:=1 to m do Begin
          if k=i then goto 340;
          C1:=A[k,i];
          for j:=1 to m1 do A[k,j]:=A[k,j]-C1*A[i,j];
    340 :    End;
If N<M then goto 110;
360: I1:=0;  I2:=0;
For i:=n to m do Begin
          k:=0;
          for j:=1 to m1 do if A[i,j]=0 then k:=k+1;
          if k<M then goto 430;
          If K>M then goto 420;
          I1:=I1+1; goto 430;
       420:   I2:=I2+1;
       430:  End;
If I1>=1 then goto 520;
If I2>=1 then goto 540;
Writeln ('Решение ');
For j:=1 to m do Begin
          X[j]:=A[j,m1];
          write ('X(',j,')= ',X[j]:2:2);
         End;
goto 550;
520: writeln ('Нет решений');
goto 550;
540: Writeln ('Множество решений');
550: End.