Здравствуйте, помогите, пожалуйста, нарисовать блок-схему к написанной в паскале программе: - вопрос №5120495

Program Zadanie_2;
const n=3; m=4;
var Z: array[1..n,1..m] of integer=((2,0,1,4), (4,4,-4,2),(-5,-5,-5,0));
zeroCols: array[1..m] of boolean;
i,j: integer;
begin
writeln ('Исходный массив:');
for i:=1 to n do begin
for j:=1 to m do
write (Z[i,j]:3);
writeln
end;
for j:=1 to m do
begin
zeroCols[j]:=false;
for i:=1 to n do begin
if Z[i,j]=0 then zeroCols[j]:=true;
end;
end;
writeln ('Номера столбцов с нулевыми элементами:');
for j:=1 to m do begin
if zeroCols[j] then write(j:3);
end;
writeln
end.