Подскажите пожалуйста, что делать дальше.

[Виктория1991)]

Моя задача: Дана целочисленная матрица. Для каждого столбца матрицы вычислить количество элементов, являющихся удвоенными нечетными числами. Определить , будут ли упорядочены полученные значения.

Var
a : array [1..N, 1..N] of integer;
b : array [1..N, 1..N] of integer;
i, j, n, m: integer;
f1, f2, f3: integer;
Begin
Write ('Введите n=');
Readln (n);
Write ('Введите m=');
Readln (m);
For i:=1 to n do
begin
for j:=1 to m do;
begin
A[i,j]:=random(10);
Write (A[i,j]:3);
end;
Writeln;
For i:=1 to n do
begin
For j:=1 to m do
Write (a[i, j]>0);
Writeln;
end;
For i:=1 to n do
begin
For j:=1 to m do
begin
if A[i,j] mod 2=1 then inc(k); 
end;      
begin
b[k]:=0;
end;
end;

Не знаю, что делать дальше(

[Son Of Pain]

Для начала сделай так, чтобы хотя бы это компилировалось и работало.

[type_Oleg]

Подсказываю:

// а где program ... ?
Var
 a : array [1..N, 1..N] of integer; // что такое N ?
 b : array [1..N, 1..N] of integer;
 i, j, n, m: integer;    // как, еще одно n ?
 f1, f2, f3: integer;

И т.д.
Компилятор у вас есть ? Если есть, компилируйте, он покажет ошибки.