пояснение программы

[sllh_111]

Программа полностью работает работает.
нужно описание программы, и меток (конкретнее для чего нужны метки 1,2,3 и при как они работают).
суть программы- определитель матрицы.
procedure opred(M3:mas; var d2:real);
label 1,2,3;
var k,b,z,c:integer;
e,s,g:real;
begin
z:=1;
d2:=1;
for k:=1 to m-1 do
begin
e:=0;
for i:=k to m do
for j:=k to m do
begin
if abs(e)>=abs(M3[i,j]) then goto 1;
e:=M3[i,j];
b:=i;
c:=j;
end;
1:
if k=b then goto 2;
for j:=k to m do
begin
s:=M3[k,j];
M3[k,j]:=M3[b,j];
M3[b,j]:=s;
end;
z:=-z;

2:
for i:=k+1 to m do
begin
g:=M3[i,k]/M3[k,k];
for j:=k to m do
M3[i,j]:=M3[i,j]-g*M3[k,j]
end;
end;
for i:=1 to m do
d2:=d2*M3[i,i];
d2:=d2*z; {
writeln('ЋЇаҐ¤Ґ«ЁвҐ«м а*ўҐ* ',d2:3:1); }
readKey;
end;