Заполнить массив (А) случайными целыми числами разных знаков. Составить программу вывода на экран номеров элементов массива, равных максимальному.
Очень надо. Пожалуйста!!!!

const n=10;var a:array[1..n] of integer;max,i:integer;beginRandomize;writeln('Исходный массив:');for i:=1 to n do begin a[i]:=random(21)-10; write(a[i],' '); end;writeln;max:=a[1];for i:=2 to n do if a[i]>max then max:=a[i];writeln('max = ',max);for i:=1 to n do if a[i]=max then write(i:3);writeln;end.Пример:Исходный массив:-6 -9 10 -6 0 0 -8 10 -8 2 max = 10  3  8