работа с одномерными массивами(блок-схема)

[hummel1991]

Помогите пожалуйста составить блок схему.Буду очень благодарен.Очень нужно.Заранее спасибо

Работа с одномерными массивами:

Вычисление в одномерном массиве целой части среднего значения всех положительных четных по величине чисел. Длина массива вводится с клавиатуры.

Печатать элементы массива по :
штук 8 формату:8
тип обрабатываемых данных:Целые

[hummel1991]

Var
a:array[1..100]of integer;
S,i,N,k:integer;
sr:real;
fin, fout:text;
label vvod;
begin
assign (fin,'s:\kurs_1\_Data\Dati.txt');
reset(fin);
assign(Fout,'lab4.txt');
rewrite(fout);
vvod:writeln('vvedite dlinu massiva');
readln(N);
if(N<1) or (N>100) then
goto vvod;
for i:=1 to N do
begin
readln(fin,a[i])
end;
for i:=1 to N do
begin
write(fout,a[i]:8);
if i mod 8=0 then
writeln(fout);
end;
k:=0;
s:=0;
for i:=1 to N do
begin
write(fout,a[i]);
if a[i] mod 2 and a[i]>0 then
writeln(fout);
begin
k:=k+1;
s:=s+a[i];
end;