Не могу понять логики в программе. Паскаль

[Ильгизар102]

Данная программа для создания двумерного массива с числами, которые не повторяются.
Теперь вопрос для чего нужны i1 и j1, без них числа повторяются, а с ними нет, каким образом с ними числа не повторяются?
Нужно для описания алгоритма, для курсовой работы.
Объясните пожалуйста.

...
writeln('Исходная матрица:');
for i:=1 to n do
for j:=1 to n do
begin
repeat
v:=0;
a[i,j]:=-12+random(27);
for i1:=1 to n do
for j1:=1 to n do
if (a[i,j]=a[i1,j1]) then inc(v);
until v=1;
end;
for i:=1 to n do
begin
for j:=1 to n do
begin
write (a[i,j]:4);
end;
...

[p51x]

Прямым. Прочитайте программу, она простая. Каждый раз проверяются повторы и все.
И это уровень курсовых...

[min@y™]

if (a[i,j]=a[i1,j1]) then inc(v);

Этот код писал жопорукий двоешник.
Фтопку этот код.

Ща напишу тебе функцию.

--------------
UPD.: вотЪ

2046.png