program prog;

var

c:array[1..25] of integer;

k,i,max:integer;

begin

   k:=0;

   max:=0;

   for i:=1 to 25 do begin

       c[i]:=random(-17)+7;

       write(c[i], ' ');

       if c[i] > max then begin

           max:=c[i];

           k:=i;

       end;

   end;

   writeln();

   if k<25 then begin

       for i:=k+1 to 25 do begin

           write(i, ' ');

       end;

   end

   else write('Самое большое число стоит на последнем месте.');

end.

Если хочется давать решения быстро, надо писать не на ТурбоПаскаль, а на PascalАВС.NЕТ:

##

var n := 25;

var c := SeqRandom(n, -100, 70).Select(t -> t / 10).ToArray;

c.Println;

var i := c.IndexMax;

if i < n - 1 then

 Range(i + 2, n).Print