Помогите решить задачи к зачёту. Паскаль.

[Dizzz]

Помогите решить задачи к зачёту. Паскаль.

1) Определить есть ли в двумерном массиве строка состоящая только из чётных элементов. если есть то вывести ёё(строку) на экран

2) Определить есть ли в двумерном массиве столбец состоящий только из нечётных элементов. если есть то вывести его(столбец) на экран

[promises]

синтаксис паскаля не особо помню, но вроде как то так:

var A:array[1..N,1..M] of Integer;
      i,j,k : Integer;
      chetn : Boolean;

{ перед циклом инициализируй А }

for i:=1 to N do
Begin
 chetn := true;
 for j:=1 to M do
    Begin
      if (A[i,j] mod 2 <> 0) then
           Begin
                  chetn := false;
                  break;
           End;
    End;

  if (chetn = true) then
     Begin
        Write('Result: ');
        for k:=1 to M do Write(A[i,k]);
        WriteLn();
     End;
End;

во втором варианте все точно так же, только условие A[i,j] mod 2 = 0