Найти сумму индексов наибольших элементов целочисленной числовой последовательности

 var IndexMin, MinValue, A, i, N ,y: longint;
 begin 
 ReadLn(N);
   if N<=0 then WriteLn(0)
 else begin Read(MinValue);
   IndexMin := 1;
 y:=0;
   for i:=2 to N do begin Read(A);
      if A>MinValue then begin 
         IndexMin := i;
         MinValue := A;
        y:=y+IndexMin;
      end;
    end;end;
    WriteLn(y);
 end.

var
  f: text;
  sum, x, i, n, max integer;
 
begin
  assign(f, 'input.txt');
  reset(f);
  read(f, n);
  read(f, x);
  max:=x;
  for i := 2 to n do
    begin
      read(f, x);
      if x > max then
        max := x;
    end;   
  close(f);    
  
  reset(f);
  sum := 0;  
  read(f, n);
  for i := 1 to n do   
    begin
      read(f,x);
      if x = max then
        sum := sum + i;
    end;  
  close(f);
  
  assign(f, 'output.txt');
  rewrite(f);
  writeln(f,sum);
  close(f);
end.

var f:text;
    sum,x,i,n,max:integer;
begin
assign(f,'input.txt');
reset(f);
read(f,n);
read(f,max);
sum:=1;
for i:=2 to n do
 begin
  read(f,x);
  if x>max then
   begin
    max:=x;
    sum:=i;
   end
  else if x=max then sum:=sum+i
 end;
close(f);
assign(f,'output.txt');
rewrite(f);
writeln(f,sum);
close(f);
end.