Блок-схема (Pascal)

[spinogryz_ua]

Вот не задача... програму написал а в блоксхемах я вообще нуб. Помогите кто шарит.

Заранее спасибо!

uses crt;
const n=7;
var
sc:array[1..n,1..n]of real;
g:real;
i,j,s:integer;
begin
s:=0;
g:=0;
writeln('  Визначити суму та кількість від''ємних елементів, що розміщені під головною діагоналлю матриці.');
writeln('  Матриця розмірністю 7x7  дійсного типу');
writeln();
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
sc[i,j]:=Random+random(10)-5;
write(sc[i,j]:6:2);
if j<i then
begin
if sc[i,j]<0 then
begin
s:=s+1;
g:=g+sc[i,j];
end;
end;
end;
writeln;
end;
writeln();
writeln('  кількість відемних елементів ',s);
writeln('  сума віде''мних елементів ',g:6:2);
end.

[Rin]

Google в помощь.
2 проги , строящие блок-схемы по коду:
1)FCEditor - не юзал, не знаю обрабатывает ли Pascal
2)BS - юзал, Pascal обрабатывает. Где то на форуме её уже выкладывал.

[spinogryz_ua]

Не могу эту BS найти. Не мог бы ты ссылочку дать?

[whatever]

Юзай FCEditor, с файлами расширения .pas работает.