подпрограмма

Program t;
uses crt;
var i,c,z: integer;
d,s1,s2,min1,min2 :real;
y,b:array [1..15] of real;
g,k:array [1..20] of real;
Procedure P;
  begin
    for i:=1 to 15 do
    begin
    y[i]:=random(31);
    end;
    for i:=1 to 20 do
    begin
    g[i]:=random(31);
    end;
    write('введите дневную оплату труда : '); readln(d);
  end;
 
begin
  P;
  s1:=0;
  for i:=1 to 15 do
  begin
  b[i]:=d*y[i]-0.2*d;
  s1:=s1+b[i];
  writeln('y[',i,']=',b[i]);
  end;
 begin
   min1:=b[1];
     for i:=1 to 15 do
if b[i]<min1 then
begin
min1:=b[i];
 
end;
    end;
 
  writeln('Минимальный зарплата в 1 подразделении: ',min1);
 
begin
  P;
  s2:=0;
  for i:=1 to 20 do
  begin
  k[i]:=d*g[i]-0.2*d;
  s2:=s2+k[i];
  writeln('g[',i,']=',k[i]);
  end;
 begin
   min1:=k[1];
     for i:=1 to 20 do
if k[i]<min2 then
begin
min1:=k[i];
 
end;
    end;
 
  writeln('Минимальный зарплата в 2 подразделении: ',min1);
end;
end.