Нужно нарисовать схему алгоритма, помогите пожалуйста!!!

for i:=1 to n do
begin
c:=0;
for j:=1 to m do
begin
if y[i,j]=0 then

c:=c+1;
end;
if (c=m) then
c:=c+m;
if c>0 then
edit3.Text:=IntToStr(c)
else
ShowMessage('количество не получено')
end;