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]gt;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.