метод гаусса

[jennis]

program gauss;
uses crt;
var s:real; i,j,k,n:integer;
x: array [1..10] of real; a: array [1..10,1..11] of real;
begin
clrscr;
write ('óêàæèòå ÷èñëî óðàâíåíèé n=');
readln (n);
writeln ('çàäàéòå çíà÷åíèÿ êîýôôèöèåíòîâ ñèñòåìû');
for i:=1 to n do
for j:=1 to n+1 do
begin
write ('A(',i:2,',',j:2,')=');
readln (a[i,j]);
end;   writeln;
for k:=1 to n-1 do
begin
for j:=k+1 to n+1 do
a[i,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 ('ðåøåíèå ñèñòåìû');
for i:=1 to n do
begin
writeln ('x(',i:2,')=',x[i]:2:5);
end;
end
else
writeln ('ñèñòåìà ðåøåíèÿ íå èìååò ');
end.

все корни получаются = 0 а если решать математически то не так пожалуйста помогите найти ошибку, заранее спасибо )))))))))))))

[Stilet]

http://ru.wikipedia.org/wiki/%D0%9C%...B5%D0%BB%D1%8F