Помогите плиз с выяснением четных элементов в матрице Опции

[LifeDrain]

Прошу вашей помощи насчет такой задачи:
Дана целочисленная матрица A(M,N) и натуральное число K<N. Выяснить все ли элементы K-го столбца матрицы А четные.
Надеюсь на вашу помощь, спасибо

var
i,j,k,n,m:integer;
lret:boolean;
m,n:real;
A:array[1..10,1..20] of real;
begin
writeln('k=');
read(k);
if k<20 then
begin
lret:=false;
writeln('k<20');
exit;
end;
    for i:=1 to 10 do
    begin
        for j:=1 to 20 do
            begin
            if (A[i,j] mod 2=0) then
            lred:=true;
            end;
        end;
    end;
    if lret then
      writeln('vse elementi 4etnie');
end.

Сообщение отредактировано: LifeDrain - 17.05.2007 18:28

[мисс_граффити]

1. ты проходишь по всей матрице, а надо только по к-тому столбцу.
2.

            if (A[i,k] mod 2<>0) then
            lret:=false;