Напишите решение в Паскале: массив А заполнен случайным образом ста целыми числами от 0 до 1000, определить имеются ли в массиве повторяющиеся элементы.

var a:array[1..100] of integer; povt,i,j,elem:integer; begin povt:=0;   randomize; for i:=1 to 100 do a[i]:=random(1001);   for j:=1 to 100 do povt:=0;   begin for i:=1 to 100 do if a[i]=a[j] then begin elem:=a[i]; povt:=povt+1;   end;    povt:=povt-1; write('Число= '+elem+ ' Количество повторений= '+ povt); end;