Завтра экзамен по программированию

В связи с отсутствием условий задачи, например, как заполняетя массив, я выбрал отстутствующие условия по своему усмотрению.
Код на Си (Паскаль не знаю):

#include <stdio.h>
#include <conio.h>

int main()
{
bool Flag = false;
bool A[100][100] = {0};
for (int J = 0; J < 99; J++)
{
for (int I = 0; I < 99; I++)
{
if ((A[J][I] == A[J][I+1]) || (A[J][I] == A[J+1][I]))
{
Flag = true;
break;
}
}
if (Flag == true) break;
}
if (Flag == true) printf("true"); else printf("false");
getch();
return 0;
}

если я правильно понял смысл задачи, то если массив 100 на 100 а элементы типа byte - то повторяющиеся элементы будут в любом случае - диапазон байтов - 0..255 а элементов в массиве 100*100=10000
например так:
randomize;
for i:=1 to 100 do
for j:=1 to 100 do
a[i,j]:=random(256);
writeln("Повторы есть");

больше всего вероятно что байт приняли для скорости работы программы, не подумав о этом варианте.

исходник случайности не прощает =)))))))))))))))

Молчание админа начало порождать домыслы, поэтому вынужден писать. Если внимательно прочитать комментарии, то можно заметить, в ответе берестовкому есть угроза, что придет Dove и все испортит. Задачка в реальном времени адресовалась тем, у кого был завтра экзамен, но увы у них не хватило чувства юмора, чтобы это понять. Так как "завтра уже прошло" - сообщаю, что Dove как всегда правильно понял задачу и все испортил: написал здесь решение. Но в решении есть ошибка: random(256). Но это не существенно, так как именно такой ответ ожидался. Плюс отдаю Dove.

ну да, в рандоме ошибки, почему то подумал что в TP random(n) возвращает случайное значение в диапазоне 0..(n-1)

сомневаюсь, что правильно.
там я пропустила {i,j,n,m:byte}

var i:
begin
for i:=1 to 100 do
begin
n:=100-i+1;
for j:=1 to 100 do
begin
m:=100-j+1;
if a[i,j]=a[n,m] then writeln('повторяются');
end;
end;
end.

если подразумевается самый быстрый и эффективный алгоритм то твой код надо изменить немного:
var i,j: ar: array [1..100,1..100] of byte;//каким-то образом заполненый
flag: boolean;
begin
for i:=1 to 100 do
begin
n:=100-i+1;
for j:=1 to 100 do
begin
m:=100-j+1;
if a[i,j]=a[n,m] then
begin
flag:=true;
break; //не помню как в паскале, но у других языках есть параметры которые уазывают глубину прерывания.
end;
end;
end;
if flag then writeln('povtoryautsya');
end.
еще есть вариант - это все преобразовать в рекурсию, но думаю и так сойдет.

и тут еще далеко

до наилучшего решения еще далеко

можно парочку примеров ввода, если не тяжело, при которых "плохая" программа должна выделываться?