двумерный массив

[zzzarazzza]

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

помогите написать код программы и сделать блок схему!!!

[ROMA2PVT]

Uses
 CRT;
Const
 m=6;
 n=5;
var
 B:array [1..m,1..n] of integer;
 i,j:integer;
begin
 randomize;
 writeln('ìàòðèöa: ');
 for i:=1 to m do
 begin
  for j:=1 to n do
  begin
   b[i,j]:=random(10)-5;
   write(b[i,j]:3);
  end;
  writeln;
 end;
 writeln;
 for i:=m downto 1 do
 begin
   for j:=n downto 1 do
   if b[i,j]<0 then
   begin
    b[i,j]:=abs(b[i,j]);
    break;
    end;
 end;
writeln;
for i:=1 to m do
 begin
  for j:=1 to n do
  begin
   write(b[i,j]:3);
  end;
  writeln;
 end;
readkey
end.

[zzzarazzza]

спасибо большое))))

[zzzarazzza]

а можно еще комменты к программе? и блок схему