Обработка матриц

[Vaclav]

Помогите решить пожалуйста задачу на Pascal ABC:
Дана целочисленная прямоугольная матрица. Определить:
1) сумму элементов в тех строках, которые содержат удвоенные нечетные числа (оформить в виде функции).
2) минимум среди сумм модулей элементов диагоналей, параллельных побочной диагонали матрицы (оформить в виде процедуры).

[Stilet]

Дана целочисленная прямоугольная матрица.

Показывай кодом как вводишь )

[Vaclav]

Var
x: Array[1..10,1..10] of Integer;
i,j,n,m: Integer;
p: Longint;
f: Boolean;
BEGIN

Repeat
Writeln('Введите размеры прямоугольной матрицы: ');
Readln(n,m);Var
x: Array[1..10,1..10] of Integer;
i,j,n,m: Integer;
BEGIN
Randomize;
Repeat
Writeln('Введите размеры прямоугольной матрицы: ');
Readln(n,m);