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

[Игорь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;

[Игорь22]

А я и сам не знаю где строки а где столбцы, наверно оставлю как первый раз ты написала.
Огромное спасибо.

Ой, а тут ещё один вопросик есть, только... более сложный, не знаю, может поможешь?
Это касается этой же задачи, и ещё одной, но на проще чуть (одномерные массивы)
Нужно правильно алгоритмы составить (блок схемы что ли..) Поможешь? или может знаешь где посмотреть, я весь нет перерыл ничего по этому нет.