Напишите решение в Паскале: массив А заполнен случайным образом ста целыми

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;