Нужна Блок схема . Подскажите .

Programa Lab 3_4

var A:array[1..10] of integer;

S, n, i: integer;

begin

Readln (n);

for i:=1 to 10 do

Readln (A[1;22;3;4;25;36;1;8;2;99]);

S:=0;

for i:=1 to 10 do

S: =S+a[i];

Writeln ('S=',S);

for i:=1 to 10 do

if a[i]>0 then

a[i]:=10;

for i:=1 to 10 do

writeln (A[i]);

end.

у тебя неправильно написан код, поэтому я не могу выполнить это задание.