помогите нужна очень срочно блок схема

program Kurs_1;
const
Nmax=100;
var
a: array [1..Nmax] of integer;
b, c: array [1..Nmax, 1..Nmax] of integer;
f, d, i, j, k, n, m, s, ss, sss: Integer;
f1,f2:text;

begin
assign(f1, ‘input.txt’);
assign(f2, ‘output.doc’);
reset(f1);
rewrite(f2);

readln(f1,n);
readln(f1,m);

for i := 1 to m do
a := 0;
for i := 1 to n do
for j := 1 to m do
begin
readln(f1, b[i, j]);
readln(b[i, j]);
a[j] := a[j] + b[i, j];
end;
for i := 1 to m do
a := abs(a);
c := b;
for i := 1 to m - 1 do
for j := 1 to m - i do
if a[j] < a[j + 1] then
begin
d := a[j];
a[j] := a[j + 1];
a[j + 1] := d;
for k := 1 to n do
begin
d := c[k, j];
c[k, j] := c[k, j + 1];
c[k, j + 1] := d;
end;
end;
writeln(f2, 'Matrica B:');
for i := 1 to n do
begin
for j := 1 to m do
write(f2, b[i, j], ' ');
writeln(f2);
end;
writeln(f2, 'Matrica C:');
for i := 1 to n do
begin
for j := 1 to m do
write(f2, c[i, j], ' ');
writeln(f2);
end;
s := 0;
for i := 1 to n div 2 do
begin
ss := 0;
sss := 0;
for j := 1 to m do
begin
sss := sss + c[i * 2, j];
if c[i * 2, j] = 0 then ss := 1;
end;
s := s + ss * sss;
end;
for i:=1 to n do
begin
if(not odd(i)) then
begin
for j:=1 to m do
if C[i,j]=0 then
f:=f+1;

if f=0 then
writeln(‘Ne syshestvyet chetnich strok s nulevimi elementami’);
else writeln(f2, 'summa elementov strok c 4etnimi nomerami s nulevimi elementami = ', s);
end;
f:=0;
end;
close(f1);
close(f2);
end.