задача на обратный ход в решении СЛАУ методом Гаусса

[Klik_1602]

помогите разобраться, что мы делаем в выделенной части программы
program L7_23;
uses
crt;
type
matr=array[1..10,1..10] of real;
vekt=array[1..10] of real;
var
n,i,j:integer;
h:real;
x:vekt;
b:vekt;
a:matr;

procedure vvodmatr(n:integer; var a:matr);{vvod matric}
var
i,j:integer;
f:text;
begin
assign(f, 'L7_23.txt');
reset(f);
for i:=1 to n do
begin
for j:=1 to n do
read (f, a[i,j]);
readln(f);
end;
close(f);
end;

...
...
...

procedure korni(n:integer; var x,b:vekt; a:matr);
var
i,j:integer;
h:real;
begin
for i:=n 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;
writeln;
writeln;
writeln('Vivod korneilя');
for i:=1 to n do writeln('x(',i,')=',x[i]:10:5);
end;

begin
clrscr;
write('Vvedite chislo uravnenij: ');
read(n);
vvodmatr(n,a);
vivodmatr(n,a);
diagonal(n,a);
vektor(n,b);
korni(n,x,b,a);
end.



заранее спасибо!!