Объясните работу программы по решению СЛАУ

Program Gauss;
Const
   Nmax=20;
Type
   VectorType=ARRAY[1..Nmax] of  real;
   MatrixType=ARRAY[1..Nmax] of VectorType;
Function Gauss(n:byte;MatrixType;B:VectorType;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.

    if sum:=0 then
    begin

if sum:=0 then
    begin
      writeln(‘Oshubka vvoda ‘);
      readln;
      exit;
    end;