Как вставить оглавление на первую страницу? чтобы автособираемое оглавление было на первой странице, а не на последней

Копировать текст оглавления и вставить его на первую страницу. после чего нажимаем правой кнопкой мыши на оглавление и    в выпавшем контекстном меню нажать кнопку «обновить» (или навести текстовый курсор на оглавление так, чтобы фон текста в оглавлении стал серым и нажать f9).

Pascalabc program aip; var  flta,fltb,fltb2: real; code: integer; function ip(a: real): real; var a1: string; begin write('введите значение а= '); // repeat  readln(a1); val(a1,a,code); if (code< > 0) then writeln('no'); until (a> 0); // ip: =a; end;   begin  flta: =ip(flta); if abs(1+sin(2*flta)) < 0.000001 then begin     writeln('delenie na nol v pervoy formule'); end else begin     fltb: = ((1-2*sin(flta)*sin(flta))/(1+sin(2*;     writeln('первая формула ',fltb: 5: 5); end; if abs(1+tan(flta)) < 0.000001 then begin     writeln('delenie na nol vo vtoroy formulte'); end else begin     fltb2: = ((1-tan(flta))/(1+tan(;     writeln('вторая формула ',fltb2: 5: 5);   end; end. 

Var m: array [1..10000] of integer; a,n,i,j: integer; begin   writeln('введите n: ');   readln(n);   j: =0;   writeln('введите последовательность чисел: ');   for i: =1 to n do   begin   readln(a);   if (a mod 2)< > 0 then begin j: =j+1; m[j]: =a; end;   end;   if j=0 then writeln ('нечетных чисел нет в данной последовательности.')   else   begin   writeln ('нечетные числа в данной последовательности: ');   for i: =1 to j do   write(m[i],' ');   writeln;   end; end.