Блок-схема

[SkuLLL]

Уменя проблема, не могу нарисовать болк-схемы к прогам. Помогите плиз.
1)Дан одномерный массив E[30], элементы которого формируются по формуле Ei= -3*i*i+74*i-7, где i-номер элемента в массиве E.Подсчитать сумму и количество элементов массива, значение которых больше k. На экран вывести сам массив, сумму и количество элементов

Program Massiv;
const n=30;
var E:array [1..n] of real;
K,S:real;
i,kol:integer;
begin
writeln ('BBeguTe K=');
readln (K); {ввод значения К}
for i:=1 to n do
E[i]:= -3*sqr(i)+74*i-7; {Вычисление значения элементов массива}
for i:=1 to n do
if E[i]>K then {Проверка условия E[i]>K}
begin
S:=S+E[i]; {Подсчет суммы элементов удовлетворяющих условию}
kol:=kol+1; {Подсчет кол-ва элементов удовлетворяжщих условию}
end;
for i:=1 to n do
write (E[i]:10:4); {Вывод элементов массива}
writeln;
writeln ('Cymma eJIeMeHToB 3Ha4eHu9 KoTopbIX 6oJIbwe K =',S:10:4,' KoJI-Bo eTux eJleMeHToB =',kol);
readln; {Чтобы всё это "не убежало"}
end.

2)Дан одномерный массив E[10], элементы которого вводятся с клавиатуры, подсчитать сумму максимального и минимального элемента в массиве E. На экран вывести сам массив и сумму

const
size = 10;
var
E: array[1..size] of integer;
i,
min, max: integer;
begin
// Ввод значений
writeln('Введи элементы массива через пробел');
for i := 1 to size do read(E[i]);
// Вывод массива на экран
writeln;
for i := 1 to size do write(E[i], ' ');
// Поиск минимального и максимального значения
min := E[1];
max := E[1];
for i := 1 to size do
if E[i] < min then min := E[i]
else if E[i] > max then max := E[i];
writeln;
writeln('Сумма минимального и максимального элементов равна ',min,' + ',max,' = ',min+max);
readln;
end.

[Multiman]

FCEditor вам в помощь)