Помогите в Delphi решить задачу?

[Алексей 21]

12.1 Сформировать одномерный массив, состоящий из ненулевых элементов, располагающихся на главной диагонали матрицы X (n x m).
12.2 Поменять местами главную и второстепенную диагонали матрицы. Заменить все четные элементы, стоящие в нечетных строках нулями.

[Вадим Мошев]

Понятие главной диагонали матрицы определено только в том случае, когда она - квадратная.
Решение примерно такое (не полностью, только вычислительная часть)

p:=0;
for i:=1 to N do
	if a[i, i] <> 0
		then
			begin
				inc(p);
				B[p]:=a[i, i];
			end;
			
// B - искомый массив, а p - количество элементов в нём

Если хотите решение полностью обеих задач, обращайтесь ко мне. Сделаю за небольшое вознаграждение. Ссылку у меня в подписи.