массивы составить блок схему

program   pr1;
uses      crt;
const     WG=100;
type      tmasi=array[1..WG]of integer;
var       a:tmasi;
          nom,kol,i,n:byte;
          max,c:integer;
          p:real;
 
procedure pro_vv_mas(var n:byte; var mas:tmasi);
var       kl,i:byte;
begin
     writeln('1-vvod s klaviaturi, 2-sluchayniy vvod chisel');
     readln(kl);
     if kl=2 then randomize;
     writeln('razmernost');
     readln(n);
     for i:=1 to n do
     case kl of
     1:begin
            writeln('vved ',i,' element');
            readln(mas[i]);
       end;
     2:mas[i]:=random(50);
     end;
end;
 
procedure pro_out_mas(n:byte; mas:tmasi);
var       i:byte;
begin
     writeln('isxodny massiv:');
     for i:=1 to n do write(mas[i]:5);
end;
 
function  f_max(n:byte; mas:tmasi; var nom:byte):integer;
var       i:byte;
          cop:integer;
begin
         cop:=mas[1];
         for i:=2 to n do
         if mas[i]>cop then begin
                                 cop:=mas[i];
                                 nom:=i;
                            end;
         f_max:=cop;
end;
 
begin
     pro_vv_mas(n,a); writeln('massiv:'); pro_out_mas(n,a);
     writeln;
     writeln('vvedite chislo Ñ');
     write('C=');
     readln(c);
     kol:=0;
     for i:=1 to n do if a[i]>c then inc(kol);
     max:=f_max(n,a,nom);
     p:=1;
     for i:=nom+1 to n do begin
                               p:=p*a[i];
                               if(p=1)and(i=n)then p:=0;
                          end;
     writeln('kolichestvo elementov bol`shix chisla Ñ- ',kol,';');
     writeln('max element- ',max);
     writeln('proizvedenie elementov stoyshix posle max elementa- ',p,'.');
end.