Составить Блок-Схему

[spani]

Собственно есть программа которая состоит из 2-х подпрограмм, тойсть нужно 2 блок-схемы Очень прошу помочь, заранее благодарен. Есть вариант Блок-Схемы: http://rghost.ru/42190488 (подскажите что не правильно).

program igor; 
 uses crt; 
 procedure otrA; 
 var 
 A: array [1..4, 1..5] of real; 
 MassivA,i,j:integer; 
 begin 
 randomize; 
 MassivA:=0; 
 for i:=1 to 4 do 
 for j:=1 to 5 do 
 begin 
 A[i,j]:=-100+random(201); 
 end; 
 for i:=1 to 4 do 
 for j:=1 to 5 do 
 begin 
 if (A[i,j]<0) then 
 MassivA:=MassivA+1; 
 end; 
 writeln ('MassivA=', MassivA); 
 end; 
 procedure otrB; 
 var 
 B: array [1..4, 1..5] of real; 
 MassivB,i,j:integer; 
 begin 
 randomize; 
 MassivB:=0; 
 for i:=1 to 4 do 
 for j:=1 to 5 do 
 begin 
 B[i,j]:=-200+random(301); 
 end; 
 for i:=1 to 4 do 
 for j:=1 to 5 do 
 begin 
 if (B[i,j]<0) then 
 MassivB:=MassivB+1; 
 end; 
 writeln ('MassivB=', MassivB); 
 end; 
 begin 
 clrscr; 
 otrA; 
 otrB; 
 readln; 
 end.

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

Модератор.

[Serge_Bliznykov]

абсолютно не проверял.
воспользовался программой FCEditor
сгенерировал ей блок-схему.
во вложении
igor_block.rar

[spani]

Сообщение от Serge_Bliznykov

абсолютно не проверял.
воспользовался программой FCEditor
сгенерировал ей блок-схему.
во вложении
Вложение 56000

Спасибо большое.