решение слау методом гаусса

[subarimpra]

не могу найти ошибку

Program gauss;
var s:real; i,j,k,n:integer;
x:array[1..10] of real;
a:array [1..10,1..11] of real;
begin
write ('укажите число уравнений n = ');
readln(n);
writeln ('задайте значения коэффициентов системы');
for i:=1 to n do
for j:=1 to n+1 do
begin
writeln ('A(',i:2,',',j:2,')='); readln (a[i,j]);
end;
writeln ('коэффициенты системы линейных уравнений');
for i:=1 to n do
begin
for j:=1 to n+1 do
begin
write ('A(',i:2,',',j:2,')=',a[i,j]:2:2);end;
writeln;
end;
for k:=1 to n-1 do
begin
for j:=k+1 to n+1 do
a[k,j]:=a[k,j]/a[k,k];
a[k,k]:=1;
for i:=k+1 to n do
begin
for j:=k+1 to n+1 do
a[i,j]:=a[i,j]-a[k,j]*a[i,k];
a[i,k]:=0 ;
end;
end;
if abs(a[n,n])>1e-50 then
begin
x[n]:=a[n,n+1]/a[n,n];
for i:=n-1 downto 1 do
begin
s:=0;
for j:=i+1 to n do s:=s+a[i,j]*x[j];
x[i]:=a[i,n+1]-s;
end;
writeln ('решение системы:');
writeln ('решение системы методом Гаусса:');
for i:=1 to n do
begin
writeln ('x(',i:2,')=', x[i]:2:5);
end;
end else writeln ('система решения не имеет');
end.


при свободных членах равных 0 выдает x1=0 x1=0 x3=0 итд
заранее спасибо