Помогите с блок схемой Опции

[Juhn]

Помогите пожалуйста написать блок схему вот к этой программе:
program summa;
var
a: array [0..9] of integer;
b:integer;
i:integer;
begin
for i:=0 to 9 do
begin
write('a',i+1,'=');
readln(a[i]);
end;
b:=0;
for i:=0 to 9 do
begin
b:=b+a[i];
end;
writeln(b);
readln;
end.

Условие задачи: Дан массив из 10 целых чисел. Найти сумму элементов данного массива.

[Yevgeny]

Вот что у меня вышло

[Juhn]

Спасибо