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.