Блок-схема (не понимаю как ее создать)

[ScoPld]

Помогите пожалуйста создать блок-схему по этой программе:

program prog;

const
N = 5;
M = 7;

type
T2DArrayOfInteger = array[1..N, 1..M] of integer;

procedure WriteAllPosOfAbs(a: T2DArrayOfInteger; val: integer);
var
i, j: integer;
begin
for i:= Low(a) to High(a) do
for j:= Low(a[i]) to High(a[i]) do
if Abs(a[i,j]) = Abs(val) then Write('[', i, ',', j, '] ');
end;

function MinAbs(a: T2DArrayOfInteger): integer;
var
min, i, j: integer;
begin
min:= Abs(a[1,1]);
for i:= Low(a) to High(a) do
for j:= Low(a[i]) to High(a[i]) do
if Abs(a[i,j]) < min then min:= Abs(a[i,j]);
MinAbs:= min;
end;

function SearchNeg(a: array of integer): boolean;
var
i: integer;
begin
for i:= 0 to High(a) do
if a[i] < 0 then Exit(true);
SearchNeg:= false;
end;

function Sum(a: array of integer): integer;
var
i: integer;
res: integer = 0;
begin
for i:= 0 to High(a) do
Inc(res, a[i]);
Sum:= res;
end;

var
i, j: integer;
min_abs: integer;
a: T2DArrayOfInteger;
begin
Randomize;
WriteLn('Массив:');
for i:= 1 to N do begin
for j:= 1 to M do begin
a[i,j]:= Random(100) - 20;
Write(a[i,j]:5);
end;
WriteLn;
end;

WriteLn;

WriteLn('Сумма элементов в тех строках, которые содержат хотя бы один отрицательный элемент:');
for i:= 1 to N do begin
if SearchNeg(a[i]) then
WriteLn('a[', i, ']: ', Sum(a[i]))
else
WriteLn('a[', i, ']: not found');
end;

WriteLn;

min_abs:= MinAbs(a);
WriteLn('Минимальный по модулю элемент массива: ', min_abs);
Write('Индексы минимального по модулю элемента массива: ');
WriteAllPosOfAbs(a, min_abs);
WriteLn;
ReadLn;
end.

[nursak]

Открой MS Word, Вставка->Автофигуры - и рисуй блок-схему...

[ScoPld]

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

Открой MS Word, Вставка->Автофигуры - и рисуй блок-схему...

Да вы гений! (сарказм)

я не понимаю как ее создать, а с помощью чего рисовать я знаю

[nursak]

Если на учебе не будут придираться - то можно от балды нарисовать типа -
Начало
|
Главная форма -> Тест
| |
Учебник Проверка ответов
.....
и т.п.

[92Edik]

Скачай прогу diamFC.

[ScoPld]

Сообщение от 92Edik

Скачай прогу diamFC.

Эта прога хоть нормально строит блок-схемы?? а то много уже перепробовал бесплатных прог и все они фигню какую-то выдают(