Сделайте блок - схему по двумерному массиву

Program lr922;
 
Const
n=4;m=4; {задаём размерности, в данном случае 4Х4}
 
Var
mass:array [1..n,1..m] of integer; {объявляем массив целых чисел, с нумерацией с единицы}
a,b,c,d,i,sum,csum:integer; {разные переменные, походу будут нужны}
 
Procedure input;
var a,b:integer;
Begin
For a:=1 to n do begin
For b:=1 to m do begin
Read(mass[a,b]); end; end; {читаем элементы с клавиатуры, при размерности 4х4 16 раз надо будет вбить цифры}
end;
 
Procedure output;
var a,b:integer;
Begin
 
For a:=1 to n do begin
For b:=1 to m do begin
Write(' ',mass[a,b]); end; {выводим элементы на экран}
Writeln end;
end;
 
Begin
sum:=0;csum:=0;c:=0;
Write('Введите элементы массива: ');
input;
Writeln('Начальный массив');
output;
 
For a:=1 to n do begin
For b:=1 to m do begin
If (b>2) then
If (mass[a,b]>0) then
If (mass[a,b-1]>0) and (mass[a,b-2]>0)then begin
mass[a,b]:=mass[a,b-1]+mass[a,b-2];
c:=c+1; end
Else begin
For i:=1 to b-1 do begin
d:=mass[a,b-i];
if d>0 then
begin
sum:=d+sum;
csum:=csum+1;
end;
 
if csum>1 then
begin csum:=0;
Break;
end;
end;
if sum>0 then
begin
mass[a,b]:=sum;
c:=c+1;
sum:=0;
end;
end;
end;end;
Writeln('Конечный массив');
output;
 
Write('Количество изменений ',c);
readln;
End.