Вычислить номер максимального элемента массива

var
  a,b:array[1..100] of integer;
  n,i,j,t:integer;
  p:real;
function IndOfMaxEl:integer;
var
  i,j:integer;
begin
  i:=1;
  for j:=2 to n do if a[j]>a[i] then i:=j;
  IndOfMaxEl:=i;
end;
procedure Mult(var p:real);
var
  i,j,k:integer;
begin
  j:=0;k:=0;p:=0.0;
  for i:=1 to n do if a[i]=0 then
    if j=0 then j:=i+1 else begin k:=i-1;break;end;
  if (k>0) and (j>0) then
    begin
      p:=a[j];
      for i:=j+1 to k do p:=p*a[i];
    end;
end;
begin
  repeat
    write('n=');
    readln(n);
  until (n>0) and (n<101);  
  write('enter array:');
  for i:=1 to n do read(a[i]);
  writeln('No of Max Element is ',IndOfMaxEl);
  Mult(p);
  writeln('Multiplication of elements beetween first and second zero is ',p:0:0);
  j:=0;
  t:=n div 2+n mod 2;
  for i:=1 to n do
    if odd(i) then begin
      j:=j+1;
      b[j]:=a[i];
    end
    else begin
      t:=t+1;
      b[t]:=a[i];
    end;
    writeln('New array:');
  for i:=1 to n do begin
    a[i]:=b[i];
    write(a[i],' ');
  end;
end.