Сделать структурную схему из кода

[dizz3r]

Помогите пожалуйста сделать структурную схему из кода массива, Заранее спасибо

const n=10;
      c=5;
var p:array[1..n] of real;
    i,j,k,im:integer;
    pr:real;
begin
   Randomize;
   For i:=1 to n do
   begin
      p[i]:=-10+Random(20)+Random;
      Write(p[i]:2:3,'  ');
   end;
   Writeln;
   Writeln;
   k:=0;
   For i:=1 to n do
      If p[i]>c then
         Inc(k);
   Writeln(k);
   im:=1;
   For i:=2 to n do
      If Abs(p[i])>Abs(p[im]) then
         im:=i;
   pr:=1;
   For i:=im+1 to n do
      pr:=pr*p[i];
   Writeln(pr:2:3);
   im:=1;
   For i:=1 to n do
      If p[i]>0 then
      begin
         pr:=p[i];
         For j:=i downto im+1 do
            p[j]:=p[j-1];
         p[im]:=pr;
         Inc(im);
      end;
   For i:=1 to n do
      Write(p[i]:2:3,'  ');
   Writeln;
   For i:=2 to im-1 do
      For j:=1 to i-1 do
         If p[j]>p[i] then
         begin
            pr:=p[i];
            For k:=i downto j+1 do
               p[k]:=p[k-1];
            p[k]:=pr;
         end;
   For i:=im+1 to n do
      For j:=im to i-1 do
         If p[j]>p[i] then
         begin
            pr:=p[i];
            For k:=i downto j+1 do
               p[k]:=p[k-1];
            p[k]:=pr;
         end;
   For i:=1 to n do
      Write(p[i]:2:3,'  ');
   Writeln;
   Readln;
end.

______________________
Используйте тег [CODE] (кнопка с решеткой # в форме сообщения) при вставке кода на форум.

[Magakudesnik]

Пишите, сделаю.
почта: magakudesnik@gmail.com
скайп: daniil.nazarov

[alexcoder]

dizz3r, обращайтесь e-mail: informatik101@mail.ru vk.com/alexcoder1