CРОЧНО!!!!дан массив состоящий из 10 целых чисел требуется найти количество элементов массива равных максимальному элементу и выписать их индексы

спасибо)

A:Array[1..10] of Integer;Begin for i:=1 to 10 do  begin   Read(A[i]);  end; max:=A[1]; for i:=1 to 10 do  if (A[i]>max) then max:=A[i]; for i:=1 to 10 do  if (A[i]=max) then   begin    Inc(k);    Writeln('index = ',i);   end; Writeln('Kol-vo = ',k);end.