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

[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 целых чисел. Найти сумму элементов данного массива.

[puporev]

Перепиши немного код. Здесь хватит одного цикла. Блок-схема по этому коду во вложении.

var a:array[1..10]of integer;
    i,b:integer;
begin
  b:=0;
  for i:=1 to 10 do
     begin
       write('a[',i,']=');
       readln(a[i]);
       b:=b+a[i];
     end;
  write('b=',b);
  readln;
end.

[Juhn]

Спасибо большое и за блок схему и за исправление программы.
Заодно спрошу на будущее, нет ли какой - нибудь программы, которая блок схемы составляет ?

[puporev]

Есть программы, которые по коду составляют блок-схему. Я сначала пробовал двумя пользоваться, но они выдают ошибки и рисуют так красиво, одна даже с анимацией, что их все-равно перерисовывать надо, а то никто не поверит, что ты нарисовал. Поэтому схемы составляю сам на бумажке, а рисую с помощью редактора блок-схем. Когда сам решаешь задачу, то нарисовать схему очень просто, заодно в программе лучше разберешся.

[crazy horse]

Если имеется ввиду редактор -то очень удобен visio.
Что касаемо генераторов -puporev прав, фигня. Точка.