Помогите с Паскалем..

Если матрица квадратная, то поменять местами элементы главной диагонали и побочной. В противном случае – найти сумму элементов четных строк.
Помогите со второй частью задания. Пожалуйста. .
Это все что смогла.

PROGRAM TANYA;
USES CRT;
LABEL L1, L2;
VAR A:ARRAY[1..15,1..15] OF REAL;
I,J,N, M :INTEGER;
K :REAL;

BEGIN
CLRSCR;
L1: WRITE('VVEDITE N= ');
READLN(N);
L2: WRITE('VVEDITE M= ');
READLN(M);
IF N>15 THEN
BEGIN
WRITE(' ZNACHENIE BOLSCHE DOPUSTIMOGO ');
GOTO L1;
END;

FOR I:=1 TO N DO
FOR J:=1 TO M DO
A[I,J]:=I*J*SIN(0.5*I*J);

FOR I:=1 TO N DO
BEGIN
FOR J:=1 TO M DO
WRITE(A[I,J]:7:1);
WRITELN;
END;
WRITELN;

FOR I:=1 TO N DO
FOR J:=1 TO M DO
BEGIN
IF I=J THEN
BEGIN
K:=A[I,J];
A[I,J]:=A[I,N+1-J];
A[I,N+1-J]:=K;
END;
END;

FOR I:=1 TO N DO
BEGIN
FOR J:=1 TO M DO
WRITE(A[I,J]:7:1);
WRITELN;
END;
WRITELN;

END.