Двумерный массив и блок-схема

[gennadii]

дан двумерный массив из n строк и m столбцов, найти сумму всех положительных элементов массива, сама программа:

program pologitelnie_chisla;
uses crt;
var
mas:array[1..100,1..100] of integer;
n,m,s,i,j:integer;
begin
clrscr;
writeln('vvedite n i m');
read(n,m);
writeln('vvedite ' ,n*m, ' chisel');
for i:=1 to n do begin
for j:=1 to m do begin
read(mas[i,j]);
end;
end;
s:=0;
for i:=1 to n do begin
  for j:=1 to m do begin
    if mas[i,j] >0 then s:=s+mas[i,j];
    end;
   end;
   writeln(s);
   readkey;
   end.

не силен в блок-схемах, а она нужна!

[VadikV]

на ка вот, держи

[rrrFer]

VadikV
стрелок много, ходят слухи, что на линиях направленных вниз и вправо стрелка не ставится

[VadikV]

Против ГОСТа не попрешь...