Нужна блок-схема программы

program kolichestvopolozhitelnyhelementov;
uses crt;
var a,b: integer;
  
procedure  massive(first: integer;second: integer);
const razmermass1 = 20;
      razmermass2 = 25;
var i,count_mass1,count_mass2: integer;
    mass1: array [1..razmermass1] of integer;
    mass2: array [1..razmermass2] of integer;
begin
    randomize;
    count_mass1 := 0;
    count_mass2 := 0;
    for i := 1 to razmermass1 do
    begin
        mass1[i] := random(100) - 50;
        mass2[i] := random(100) - 50;
    end;
    writeLn('Massive "V"');
    for i := 1 to razmermass1 do write(mass1[i],' ');
    writeln;
    writeln('Massive "W"');
    for i := 1 to razmermass2 do write(mass2[i],' ');   
    writeln;
    for i := first to second do
    begin
        if mass1[i] > 0 then
        inc(count_mass1)
        else ;
        if mass2[i] > 0 then
        inc(count_mass2)
        else ;
    end;
    writeln('Kol-vo polozhitelnyh elementov massiva "V" = ',count_mass1);
    writeln('Kol-vo polozhitelnyh elementov massiva "W" = ',count_mass2);
end;
 
begin
    write('Nizhnyaya granica intervala = ');
    readln(a);
    writeln;
    write('Verhnyaya granica intervala = ');
    readln(b);
    massive(a,b);
    readln;
end.