var i,n,max,max1,nmax,nmax1: integer;
    a: array[1..100] of integer;
begin
  write('размер массива:  ');
  readln(n);
  randomize;
  writeln('исходный массив');
  for i:=1 to n do
  begin
    a[i]:=Random(50);   
    write(a[i],' '); 
  end; 
  max:=a[1]; max1:=a[1];
  for i:=1 to n do
  begin
    if a[i]>max then
    begin 
       max1:=max;  nmax1:=nmax;  
       max:=a[i];  nmax:=i;
    end   
    else if a[i]>max1 then
    begin
      max1:=a[i];
      nmax1:=i;
    end;  
  end;
  writeln;
  writeln('максимальный элемент:  ',max,'  индекс: ',nmax);
  writeln('второй максимальный элемент:  ',max1,'  индекс: ',nmax1);
end.