Задача по двумерным массивам, Ничего не получается, помогите! Опции

[Игорь22]

Вот задача:
Вычислить сумму элементов любой строки двумерного массива А[m,n], стоящих на четных местах. M=3, n=7. Вывести исходный массив А, номер строки, исходную сумму и рассматриваемую строку, в которой все подходящие элементы заменены нулями.

Позарез нужно сделать ее, пропаду, если не сдам ее!
У меня никак не получается сделать ее как надо, подскажите если кто знает, очень благодарен буду. Ниже выкладываю свою версию решения, подправьте что не так.

 
Var A:array[1..50,1..70] of real;
I,j,m,n:integer;
Begin
    Writeln(‘vvedite chislo strok m i stolbcov n’);
    Readln(m,n);
      Writeln(‘vvedite elementi massiva A po strokam’);
For i:=1 to m do
  For j:=1 to n do readln(A[I,j]);
    Writeln(‘ishodniy massiv A’);
For i:=1 to m do
   Begin
     For j:=1 to n do write (A[I,j]:7:1);
       Writeln
  end;

[мисс_граффити]

поищи по форуму, выкладывали программки, которые рисуют блок-схемы по коду.