Соседние элементы Опции

[Новичок]

Здравствуйте!
Поммогите решить задачу : Определить есть ли в двухмерном массиве одинаковые соседние элементы.

В одномерных массивах я использовал такой способ

for i:=1 to n-1
if a[i]=a[i+1] then write ('yes')  else write ('no')

но в двухмерных он наверное не пройдёт
ниже текст всей задачи

program f323;
const n=3;
var a:array [1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
read (a[i,j]);
  for i:=1 to n do  begin
for j:=1 to n do  write (a[i,j]:5);
   writeln   end;
for i:=1 to n-1 do
 for j:=1 to n-1 do
 if a[i,j]= a[i+1,j+1] then writeln ('есть)
 else write('нет');
   end.

[Archon]

А я бы сделал цикл while или repeat. Break, имхо, почти так же некрасиво, как и goto.

Гм. Полезно все же просматривать свои мессаджи.. В приведенном выше коде есть ошибка ((. Точнее, не совсем ошибка, ибо результат все же будет правильный, а скорее неэффективность.

Все же есть еще одна ошибка, и результат правильным будет не всегда =). Например, попробуй массив
5 5 5 5 5
5 6 7 8 9
5 2 3 4 5
5 6 7 8 1
Мой вариант:

. . . { Объявление переменных }
begin
	. . . { Заполнение массива }
	Answer := false;
	{ Проверяем горизонтальные пары: }
	j := 1;
	while not Answer and (j <= m) do begin
		i := 1;
		while not Answer and (i < n) do begin
			Answer := a[i, j] = a[i + 1, j];
			Inc(i);
		end;
		Inc(j);
	end;
	{ Проверяем вертикальные пары: }
	i := 1;
	while not Answer and (i <= n) do begin
		j := 1;
		while not Answer and (j < m) do begin
			Answer := a[i, j] = a[i, j + 1];
			Inc(j);
		end;
		Inc(i);
	end;
	if Answer then WriteLn('yes') else WriteLn('no');
end.

или

. . . { Объявление переменных }
begin
	. . . { Заполнение массива }
	Answer := false;
	j := 1;
	while not Answer and (j <= m) do begin
		i := 1;
		while not Answer and (i <= n) do begin
			if i <> n then Answer := a[i, j] = a[i + 1, j];
			if not Answer and (j <> m) then Answer := a[i, j] = a[i, j + 1];
			Inc(i);
		end;
		Inc(j);
	end;
	if Answer then WriteLn('yes') else WriteLn('no');
end.