доделать эту программу по блок схеме. На блок схеме продолжение.

const
m=5;
sigma=1;
lam=5;
var
y:array[1..100] of real;
aa,bb,R,summ:real;
i:byte;
begin
writeln('massiv Y');
for i:=1 to 100 do begin
                   summ:=0;
                   for J:=1 to 12 do begin
                                    R:=random(101)/100;
                                    summ:=summ+r;
                                    end;
                   aa:=m+sigma+summ;
                   summ:=0;
                   k:=0;
                   while summ<=1 do begin
                                   R:=random(100)/100;
                                   summ:=summ+(1/lam*ln(1-R));
                                   k:=k+1;
                                   end;
bb:=k-1;
Y[i]:=aa+bb;
write(y[i]:7:2);
end;

if y[i] < min then min:=y[i]
else if y[i] > max then max:=y[i];
 
h:=(max-min)/20;
write(min, max, h);
x1:=min;
x2:=x1+h;
 
for n:=1 to 20 do 
  for i:=1 to 100 do begin
    if (x1 <= y[i])  and (x2>= y[i]) then write('*');
    writeln;
    x1:=x1+h;
    x2:=x2+h;
end;

const
m=5;
sigma=1;
lam=5;
var
y: array [1..100] of real;
aa,bb,r,h,summ,x : real;
i,j,k: byte;
begin
writeln('massiuv Y');
for i:=1 to 100 do begin
                   summ:=0;
                   for j:=1 to 12 do begin
                                    R:= random(101)/100;
                                    summ:=summ+r;
                                    end;
                   aa:=m+sigma*summ;
                   summ:=0;
                   k:=0;
                   while summ<1 do begin
                                   R:= random(100)/100;
                                   summ:=summ+(1/lam*ln(1-R));
                                   x:=k+1;
                                   end;
bb:=k-1;
Y[i]:=aa+bb;
write(y[i]:7:2);
end;
                   Begin
                   if y[i] < min then min:=y[i]
                  else if y[i] > max then max:=y[i];
                   h:=(max-min)/20;
                  write(min, max, h);
                  x1:=min;
                  x2:=x1+h;
for n:=1 to 20 do 
  for i:=1 to 100 do begin
    if (x1 <= y[i])  and (x2>= y[i]) then write('*');
    writeln;
    x1:=x1+h;
    x2:=x2+h;
end;end.