Найти сумму элементов. И если она отрицательная, заменить все элементы массива на противоположные по знаку, если положительная, удвоить каждый элемент массива. Массив повторно вывести на экран. Помогите пожалуйста составить блок-схему и программу...
Должно работать 
Program help;
Uses Crt;
Const N = 5; // Размер массива
Var a : Array[1..N, 1..N] of Integer;
i, j, s : Integer;
Begin
Randomize;
ClrScr;
s := 0;
For i := 1 To N do
For j := 1 To N do
begin
a[i,j] := random(21)-10; // Заполняем числами [-10;10]
s := s + a[i,j];
end;
If s < 0 Then
For i := 1 to N do
For j := 1 to N do
a[i,j] := -a[i,j] // Меняем на противоположные
else
If s > 0 Then
For i := 1 to N do
For j := 1 to N do
a[i,j] := 2 * a[i,j]; // Удваиваем
For i := 1 to N do
Begin
For j := 1 to N do
Write(a[i,j],' '); // Выводим
WriteLn;
End;
ReadLn;
End.
⇢