Построить блок-схему по программе

uses
    crt;
var
   a,b,b1:array[1..100] of integer;
   q,i,j,t,sum,min,mini,n:integer;
begin
     clrscr;
     writeln('wvedite kol-vo gruzov');
     readln(n);
     if not ((n<=16) and (n>=1)) then
        begin
             writeln('povtorite vvod');
             readln(n);
        end;
     writeln('wvedite massi gruzov ot 1 do 16 tonn');
     for i:= 1 to n do
         begin
              read(a[i]);
              if a[i]>16 then
                 repeat
                       writeln('povtorite vvod');
                       read(a[i]);
                 until a[i] in [1..16];
         end;
     writeln('wvedite q, q<=16');
     readln(q);
     j:=0;
     t:=0;
     for i:= 1 to n do
         begin
              if a[i]>4 then
                 begin
                      j:=j+1;
                      if j<q then
                         b[j]:=a[i];
                 end;
              if a[i]<=4 then
                 begin
                      t:=t+1;
                      b1[t]:=a[i]
                 end
         end;
     sum:=0;
     min:=b1[1];
     mini:=1;
     for i:= 1 to t do
         begin
         sum:=sum+b1[i];
         if b1[i]<min then
            begin
                 min:=b1[i];
                 mini:=i;
            end;
         end;
     writeln('obsha9 summa u massiva b1 ',sum);
     write('kol-vo gruzov bloshe 4 tonn: ');
     for i:= 1 to j do
         write(b[i],' ');
     writeln;
     writeln('sami legki gruz ',min,' ego nomer ',mini);
     write('voobhe obsha8 suuna vseh gruzov: ');
     sum:=0;
     for i:= 1 to n do
         sum:=sum+a[i];
         write(sum);
readkey
end.