Помогите разобраться в коде модели Марковица

program riski;
uses crt;
type mas=array[1..10] of real;
mas2=array[1..10,1..10] of real;
var a:real;m,be,bm:mas;
B,E,b1,e1:mas2;
i,k,c,v,l,j,n:integer;
mp,ebe,mbm,ebm,x,mbe:real;
 procedure base;
begin
for i:=1 to n do {1}
 begin
  for c:=1 to n do {2}   begin
    for v:=1 to n do
     begin
      B1[c,v]:=B[c,v];
      e1[c,v]:=e[c,v];     end;
   end;
  for k:=1 to n do
   begin
    B[i,k]:=B1[i,k]/b1[i,i]; {3}    E[i,k]:=E1[i,k]/b1[i,i];for l:=1 to n do
     begin {4}
      if l<>i then
        begin
         B[l,k]:=(B1[l,k]-(B1[l,i]*B1[i,k]/B1[i,i]));         E[l,k]:=(E1[l,k]-(B1[l,i]*E1[i,k]/B1[i,i]));
        end;
      end;
   end;
 end;for i:=1 to n do {5}
 begin
  for j:=1 to n do
   begin
    be[i]:=be[i]+e[i,j];   end;
  end;
for i:=1 to n do {6}
 begin
  for j:=1 to n do   begin
    Bm[i]:=Bm[i]+m[j]*e[i,j];
   end;
  end;
for i:=1 to n do begin {7}
  ebe:=ebe+be[i]; {8}
  ebm:=ebm+bm[i];
  mbm:=mbm+m[i]*bm[i];
  mbe:=mbe+m[i]*be[i]; end;
end;
procedure vvod;
label out1, out2, out3, out4, out5;
var z:real; mi,ma:real;begin
writeln;
writeln(' 9');
writeln;
writeln;writeln(' 10');
writeln;
writeln(' 11');
writeln;
writeln(' 12');writeln;
writeln;
writeln;
out1:
writeln;writeln(' 13');
write(' 14 ');
readln(n);
if (n<=0) or (n<>int(n)) or (n>10) then
 begin  writeln(' 15 ');
  goto out1;
 end;
writeln;
writeln(' 16');for i:=1 to n do
 begin
  E[i,i]:=1;
  out2:
  write(' ',i,'-ого вида : ');  readln(m[i]);
  if (m[i]<0) then
   begin
    writeln(' 17 ');
    goto out2;   end;
 end;
writeln;
writeln('18');
writeln(' 19');writeln(' 20');
writeln(' 21');
writeln;
writeln(' 22 ');
for i:=1 to n do begin
  out3:
  write('23 ');
  readln(z);
  if (z<0) then   begin
    writeln(' 24 ');
    goto out3;
   end;
  b[i,i]:=z*z; end;
writeln;
writeln(' 25');
writeln(' 26');
for i:=1 to n do begin
  for j:=i+1 to n do {27}
   begin
    out4:
    write(' ',i,'-го и ',j,'-го вида: ');    readln(z);
    if abs(z)>=sqrt(b[i,i])*sqrt(b[j,j]) then
     begin
      writeln(' 28 ');
      goto out4;     end;
    b[i,j]:=z;
    b[j,i]:=z;
    if i<>j then
     begin      E[i,j]:=0;
     end;
   end;
 end;
writeln;ma:=0;
for i:=1 to n do
 begin
  if m[i]>ma then ma:=m[i];
 end;mi:=100000000;
for i:=1 to n do
 begin
  out5:
  if m[i]<ma then   begin
    writeln(' 29');
    write(' 30 ');
    goto out5;
   end; end;
end;
procedure vivod;
begin
writeln;writeln(' 31');
for i:=1 to n do
begin
x:=((mbm-mp*ebm)*be[i]+(mp*ebe-mbe)*bm[i])/(ebe*mbm-mbe*mbe);
writeln(' ',i,'-го вида: ',x:6:5);if x<0 then
begin
writeln(' 32');
writeln(' 33');
writeln(' 34');end;
end;
writeln;
writeln(' Минимальный риск портфеля: ',sqrt((mp*mp*ebe-
2*mp*mbe+mbm)/(ebe*mbm-mbe*mbe)):6:5);end;
 
begin
clrscr;
textcolor(yellow);textbackground(blue);
vvod;
base;
vivod;
readln;end.