Заполните массив случайными числами в интервале[0,1000] и выведите номера всех элементов которые равные последнему элементу

program z1;         var a:array[1..1500] of integer;         i,j,n:integer; begin         readln(n);         randomize;         for i:=1 to n do begin                 a[i]:=random(1001);         end;                 n:=n-1;                 for i:=1 to n do begin                         if a[i]=a[n+1] then begin                         write(i,' ')                         end                 end;         readln end.