Объсните принцип работы программы

[Ge0rGE]

Объясните пжлйста очень подробно принцип работы
программы,т.е что выполняется в тот или иной момент проги:


Program Gauss;
Const
Nmax=20;
Type
VectorType=ARRAY[1..Nmax] of real;
MatrixType=ARRAY[1..Nmax] of VectorType;
Function Gauss(n:byte;MatrixType;B:VectorTyp e;var x:VectorType):Boolean;
Var
i, j, k, iMax:Byte;
tmp,Max,d:real;
v:VectorType;
begin
for k:=1 to n-1 do
begin
Max:=Abs(A[k,k]);
iMax:=k;
for i:=k+1 to n do
if Abs(A[i,k])>Max then
begin
Max:=Abs(A[i,k]);
iMax:=I;
end;
if Max=0 then
begin
Gauss:=false;
Exit
End;
If iMax<>k then
Begin
Tmp:=B[k];
B[k]:=B[iMax];
B[iMax]:=Tmp;
v:=A[k];
A[k]:=A[iMax]
A[iMax]:=v;
End;
For i:=k+1 to n do
Begin
d:=A[i,k]/A[k,k];
for j:=k to n do
A[i,j]:=A[i,j]-d*A[k,j];
B[i]:=B[i]-d*B[k];
End;
End;
if A[n,n]=0 then
begin
Gauss:=false;
Exit;
End;
X[n]:=B[n]/A[n,n];
For i:=n-1 downto 1 do
Begin
Tmp:=B[i];
For j:=i+1 to n do
Tmp:=Tmp-A[i,j]*X[j];
X[i]:=tmp/A[i,i];
End;
Gauss:=true;
End;
var
n,i,j:Byte;
a:MatrixType;
b,x:VectorType;sum:real;
begin
write(‘Vvedite razmernost ‘);
read(n);
sum:=0
writeln(‘Razshurenaya matruca ‘);
for i:=1 to n do
begin
for j:=1 to n do
begin
write(‘A[ ,i,’,’,j,’]=’);
readln(a[i,j]);
sum:=a[i,j]+sum;
end;
Write(‘b[‘,i,’]=’);
Readln(b[i]);
if sum:=0 then
begin
writeln(‘Oshubka vvoda ‘);
readln;
exit;
end;
sum:=0;
end;
if not Gauss(n,a,b,x) then begin
writeln(‘ Matruca ‘);
Halt;
End;
Writeln(‘Reshenue’);
For i:=1 to n do
Begin
Writeln(x[i]:12)
End;
Readln;
End.

[Ge0rGE]

Ребята,ну помогите завтра сдача!