Нарисовать блок-схему по программе(паскаль)

// pascalabc.net 3.3, сборка 1611 от 06.01.2018 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(100,-20,20); a.println;   writeln('положительных ',a.where(t-> t> 0).count,           ', отрицательных ',a.where(t-> t< 0).count) end. пример 19 7 4 15 15 -16 20 6 1 7 -15 -13 3 0 -10 -17 -14 -16 12 -9 -16 -6 6 10 4 -17 -17 19 20 -12 -18 18 9 -14 -17 -11 6 4 -8 -20 -2 18 -3 -6 -6 -12 -8 -8 -11 13 -6 19 19 3 -14 4 -19 14 -10 11 -19 -19 6 -8 4 -13 -2 -4 -3 -19 -2 3 12 11 14 -13 18 -9 -4 -4 12 11 9 -14 14 -17 20 -15 20 -1 -12 13 -7 1 20 -4 -9 -16 10 -13 положительных 45, отрицательных 54

Var     i,n,max: integer;     a: array[1..30]of integer; begin writeln('исходный массив: '); for i: =1 to 30 do   begin   a[i]: =random(0,1000);   writeln(a[i]);   if (a[i]> 9) and (a[i]< 100) then       begin       if max=0 then max: =a[i];       if a[i]> max then max: =a[i];       end;   end; for i: =1 to 30 do   if a[i]=max then n: =n+1; if max> 0 then writeln('n=',n)     else writeln('таких нет'); end.