Сумма диагоналей матрицы Опции

[!!!ACHTUNG!!]

Помогите решить задачу на нахождение сумм главной и побочной
диагоналей массива порядка М.
вот накидал но решает неверно

Program Matrix13;    {Программа нахождения сумм главной и побочной
диагоналей матрицы порядка М}
Uses
 Crt,dos;
const                {Ограничим размер матрицы не более 10x10}
 Nmax=10;
 Mmax=10;
type
 Mas=Array[1..Nmax,1..Mmax] of integer;
Var
 A:Mas;              {Тип массива}
 N,M:integer;
 I,J:integer;
 Sum1,Sum2:Integer;  {Суммы по
 бочной и главной диагоналей массива}
begin
 ClrScr;
 WriteLn('Программа нахождения сумм главной и побочной диагоналей ');
 WriteLn('матрицы порядка М');
 WriteLn;
 Write('Введите порядок матрицы M = ');
 Read(M);
  {Построение массива}
 for J:=1 to M do
 for I:=1 to M do
 begin
  Write('A[',J,',',I, ']= ');
  read(A[J,I]);
 end;
    {Нахождение суммы главной диагонали матрицы}
  begin
  Sum1:=0;
  For J:=1 to M do
  For I:=1 to M do
  J:=I;
   if A[J,I]>0 then
   Sum1:=Sum1+A[J,I];
  WriteLn('Сумма главной диагонали = ',Sum1);  {Вывод значения суммы главной диагонали массива}
  end;
    {Нахождение суммы побочной диагонали матрцы}
  begin
   Sum2:=0;
   For I:=1 to M do
   For J:=M downto 1 do
    if A[J,I]>0 then
   Sum2:=Sum2+A[J,I];
  WriteLn('Сумма побочной диагонали = ',Sum2);    {Вывод значения суммы побочной диагонали массива}
  end;
 WriteLn('');
 WriteLn('Для завершения нажмите Enter');
 ReadLn;
end.

Очень надо!!!

Сообщение отредактировано: volvo - 25.12.2005 10:59