Pascal Метод Гаусса (для квадратной матрицы).

[FullVenic]

Иногда возникает ошыбка границы переменой. Прошу помощи.

                                  uses crt;
const n=2;
var
m,i,j,k:byte; max,p,w,eps:real;
a:array[1..n,1..n+1]of real;
x:array[1..n]of real;

BEGIN
for i :=1 to n do begin
for j :=1 to n+1 do
readln(a[i,j]);
end;
write('in EPS');
readln(eps);
for i:=1 to n do
begin


max := abs(a[i,j]);
for j:=i+1 to n do
if abs(a[j,i])>max then begin
max:=abs(a[j,i]);
m:=j;
end;

if max<eps then begin
writeln('no solution');
halt;
end;
end;
if m<>i then
begin
 i:=0;j:=0;
for j:=i to n+1 do
p:=0;
begin p:= a[i,j];
a[i,j]:=a[m,j];
a[m,j]:=p;
end;
        i:=0;j:=0;
for j:= n+1 downto i do

a[i,j]:=a[i,j]/a[i,i];

for j:=i+1 to n do
for k:=n+1 downto i do
a[j,k]:= a[j,k]-a[i,k]*a[j,i];
end;
     i:=0;j:=0;
for i:=n downto 1 do
begin w:=0;
for j:=i+1 to n do
w:= w + a[i,j] + x[j];
x[i]:=a[i,n-1] - w;
end;

for i :=1 to n do begin
write(x[i],' ');
end;


readln;
end.

[FullVenic]

ребята, я дал вам хороший код)
дело в том, что если определитель =0 то оно выдает ошибку.
все ок. справился.