Помогите написать блок схему и программку на языке Турбопаскаль к задачке,

Const
   N = 7;
Var
   B:array[1..N] of integer;
   i:integer;
   S,P:real;
Begin
Randomize;
Write('Исходный массив:');
S:=0;
P:=1;
For i:= 1 to N do
    Begin
    B[i]:=random(21)-10;
    Write(' ',B[i]);
    if B[i] lt; 0 then P:=P*B[i]
    else if B[i] gt; 0 then S:=S+B[i];
    End;
WriteLn;
WriteLn('S = ',S);
WriteLn('P = ',P);
For i:= 1 to N do
    if B[i] lt;gt; 0 then Write(B[i],' ');
ReadLn;
End.


Результат работы программки:

Начальный массив: -7 5 1 -1 0 6 4
S = 16
P = 7
-7 5 1 -1 6 4