Помогите плизз блох схему сделать :(

[mela]

Надо блох схему вот для этого:
Program laba1;
Var
i,n: integer;
a: array[1..100] of real;
Begin
Randomize;
Writeln('Vvedite 4islo n'); Readln(n);
for i:=1 to 2*n do
begin
a[i]:=random (10000);
write('',a[i]:5:0);
end;
writeln;
Writeln('Noviy massiv');
For i:=1 to n do
Write('',a[i]:5:0,'',a[n+1]:5:0);
Readln;
End.

[Лубышев]

Так не пойдет ли? :