Дан двумерный массив c[3,2] целых чисел заполненных случайным образом определить количество чётных положительных элементов второй строки

Var
  i, k, Count: Integer;
begin
  Count:=0;

  for i:=0 to 2 do
    for k:=0 to 1 do
      c[i][k]:=Random(300) - 100;

  for i:=0 to 1 do
    if ((c[1][i] Mod 2 = 0) And (c[1][i] >= 0) then
      Inc(Count); // увеличиваем переменную на 1цу

  WriteLn(Count);
end.