Pascal (Дан двумерный массив. Определить есть ли в нем повторяющиеся элементы. (Использовать цикл с предусловием))

[Shestak123]

Дан двумерный массив. Определить есть ли в нем повторяющиеся элементы. (Использовать цикл с предусловием)

[Shestak123]

Все ещё нужна помощь

[Serge_Bliznykov]

Сообщение от Shestak123

Все ещё нужна помощь

в чём помощь? Что Вы уже сделали? Что не получается?

[newerow1989]

Использовать цикл с предусловием

- Не уверен, что получится

var i,j:integer;
    p:array[1..10,1..10] of integer;
    chisla:set of byte;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      For j:=1 to 10 do
      begin
         p[i,j]:=Random(256);
         Write(p[i,j]:3,'  ');
         chisla:=chisla+[p[i,j]];
      end;
      Writeln;
   end;
   Writeln;
   For i:=1 to 10 do
      For j:=1 to 10 do
         If p[i,j] in chisla then
            chisla:=chisla-[p[i,j]] else
            Writeln(p[i,j]);
   Readln;
end.

[Shestak123]

Извините, не совсем понял вот эту строку
If p[i,j] in chisla then
Можно пояснить?