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

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

Ой, спасибо огоромное за поддержку! И что так быстро откликнулась!
Просто мне очень надо это понимаешь... Проще говоря учусь я, в этом не очень то разбираюсь (предмет естесственно не профилирующий, 2 семестра идет всего) так вот это осталось сдать только:)

Можно поподробней, раз уж на то пошло. Что мне надо написать после той части программы что я написал? (если она верная) Хотя бы как-то подходилос под тот текст задачи что я выше написал.
Очень жду!