Есть ли одинаковые элементы в матрице?(Паскаль)

[Сергей Немцов]

Дана матрица MxN.
Как проверить есть ли на четных позициях i-х строк матрицы одинаковые элементы?(Если есть то вывести слово "Yes",если нету то "No").
Помогите пожалуйста

[newerow1989]

const m=10;
      n=8;
var i,j,k:byte;
    p:array[0..m-1,0..n-1] of byte;
    d:boolean;
begin
   Randomize;
   For i:=0 to m-1 do
   begin
      For j:=0 to n-1 do
      begin
         p[i,j]:=Random(20);
         Write(p[i,j],'  ');
      end;
      Writeln;
   end;
   For i:=0 to m-1 do
   begin
      d:=false;
      For j:=0 to (n-1) div 2-2 do
         For k:=j+1 to (n-1) div 2-1 do
            d:=d or (p[i,j*2+1]=p[i,k*2+1]);
      If d then
         Writeln('Yes') else
         Writeln('No');
   end;
   Readln;
end.

Сойдет?

[Сергей Немцов]

Спасибо)
Но не совсем так нужно..
Например есть матрица 4х4,на парных позициях строк должны быть одинаковые элементы:
1 2 3 2
4 5 6 5
7 8 9 8
0 1 4 1
В таком случае вывести "Yes",иначе "No"