Блок схема:Составьте программу подсчета числа отрицательных элементов двухмерного массива А (N,M),кратны3

[sa-dmit]

Помогите пожалуйста построить блок схему к задачи:
Составьте программу подсчета числа отрицательных элементов двухмерного массива А (N,M), кратных 3.

Код к ней:
program Pr;
var
a:array[1..100,1..100] of integer;
j,n,l,i,c:integer;
begin
Write('Введите количество строк:');
readln(n);
Write('Введите количество столбцов:');
readln(l);
writeln('Исходный массив: ');
randomize;
for i:=1 to n do
begin
for j:=1 to l do
begin
a[i,j]:=random(10)-5;
Write(a[i,j]:3);
end;
writeln;
end;
writeln;
c:=0;
for i:=1 to n do
begin
for j:=1 to l do
if (a[i,j]<0) and (a[i,j] mod 3=0) then
begin
inc(c);
end;
writeln;
end;
if c=0 then
begin
writeln('НЕТУ ТАКИХ ЭЛЕМЕНТОВ!!!');
halt;
end
else
writeln('Количество отрицательных элементов кратных трём: ',c);
ReadLn;
end.

[ROMA2PVT]

Добавляй после начала блок описания переменных.

[sa-dmit]

Спасибо огромное...