откорректируйте программу по решению СЛАР методом Гауса

[Ge0rGE]

Нашел программку для решения сист.лин.уравнений размерности n методом Гаусса, но нужно еще сделать так,чтобы она не рушилась при введении диагонального элемента равного нулю,как это сделать я не пойму(вероятно как-то переставить столбцы или строки) помогите пожалуйста. И еще один проблем - с блок-схемой не ладится,разветвлений нет,как ее составить для этого кода??



program project2;
var
a:array of array of real;
b,x:array of real;
h:real;
i,j,k,n:integer;
begin
writeln('Vvedute koluchestvo uravnenuy: ');
readln(n);
setlength(a,n+1);
setlength(b,n+1);
setlength(x,n+1);
for i:=1 to n do
begin
setlength(a[i],n+1);
writeln('uravnenue nomer ',i);
writeln('Vvedute koeficientu');
for j:=1 to n do
begin
write('a[',i,',',j,']=');read(a[i,j]);
end;
writeln('Vvedite pravuiu chast uravnenuya');
write('b[',i,']=');read(b[i]);
end;
writeln('Matruca');
for i:=1 to n do
begin
write(i);
for j:=1 to n do
write(a[i,j]);
writeln(b[i])
end;
for i:=1 to n-1 do
for j:=i+1 to n do
begin
a[j,i]:=-a[j,i]/a[i,i];
for k:=i+1 to n do
a[j,k]:=a[j,k]+a[j,i]*a[i,k];
b[j]:=b[j]+a[j,i]*b[i] end;
x[n]:=b[n]/a[n,n];
for i:=n-1 downto 1 do
begin
h:=b[i];
for j:=i+1 to n do h:=h-x[j]*a[i,j];
x[i]:=h/a[i,i]; end;
writeln('Kornu uravnenuya');
for i:=1 to n do writeln('x(',i,')=',x[i]);
end.

[Ge0rGE]

Ребята,ну помогите!!

[Ge0rGE]

Пожалуйста помогите. Это срочно!

[Paul11j]

поставь условие в цикле

if (i=j)or(i+j=n+1) then
if a[i,j]=0 then 
writeln('ошибка');