Блок схема программы.

[qwe1qwe2qwe3]

Имеется программа, помогите пожалуйста составить блок схему.

program prog_phor1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
type
  dynamic_arr=array of integer;
var
  n: integer;
  a: dynamic_arr;
  i: integer;
  prod: integer;
  sum: integer;
function num_negative(var arr: dynamic_arr; n: integer): boolean;
var
  k,z: integer;
begin
  k:=0; //отрицательные
  z:=0; //нулевые
  for i:=0 to n-1 do begin
    if arr[i]<0 then Inc(k)
    else if arr[i]=0 then Inc(z);
  end;
  if k>z then Result:=true
  else Result:=false;
end;

begin
  try
    randomize;
    write('Vkhodnaya dlina massiva ili 0 dlya vykhoda:');
    readln(n);
    if n<=0 then exit;
    SetLength(a, n);
for i:= 0 to n-1 do begin
      a[i]:=random(5)-3;
    end;
    writeln('Array is: ');
    for i:= 0 to n-1 do begin
      write(a[i], ' ');
    end;
    writeln;
    prod:=1;
    sum:=0;
    if num_negative(a, n) then begin
      for i := 0 to n - 1 do
        if a[i]<0 then prod:=prod*a[i];
      writeln('Otritsatelnykh elementov v zadannom massive bolshe, ikh proizvedeniye ravno: ', prod);
    end else begin
      for i := 0 to n - 1 do
        if a[i]=0 then sum:=sum+i;
      writeln('Nulevykh elementov v zadannom massive bolshe, summa ikh indeksov ravna: ', sum);
    end;
    readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[BDA]

Раз вы все равно не сами составляете блок-схему, то знаний от этого не получите. Тогда легче воспользоваться программой FCEditor.