Какие действие нужно выполнить, удалить созданное оглавление

// PascalABC.NET 3.0, сборка 1088
begin
  var n:=ReadInteger('Количество элементов в списке: ');
  var L:=new List<integer>;
  var t:integer;
  Writeln('Вводите чеез пробел целочисленные элементы списка');
  for var i:=1 to n do begin
    t:=ReadInteger; L.Add(t)
    end;
  var i:=1;
  var s:=0;
  while i<=n-1 do begin s+=L[i]; Inc(i,2) end;
  Writeln('Среднее арифметическое с четных мест равно ',
    s/(n div 2):0:3)
end.

Тестовое решение:
Количество элементов в списке: 5
Вводите чеез пробел целочисленные элементы списка
-6 12 57 32 8
Среднее арифметическое с четных мест равно 22.000

Const nx=20;
var i,j,n,s:integer; A,B:array[1..nx,1..nx] of real;min,t:real;
z:array[1..nx] of real;
begin
min:=100;
write('Введите размер матрицы n');Readln(n);
for i:=1 to n do begin
for j:=1 to n do begin
A[i,j]:= sin(j)*(1-sin(i));
write(A[i,j]:9:4);
if min > A[i,j] then begin min:= A[i,j];s:=i;end;
end;writeln;end;writeln;
i:=s;
for j:=1 to n do begin
z[j]:=A[i,j];write(z[j]:9:4);end;
for i:=1 to n do begin
for j:=2 to n do begin
if z[j-1]> z[j] then begin
t:=z[j-1];z[j-1]:=z[j];z[j]:=t
end;end;end;
writeln;
i:=s;
for j:=1 to n do begin
A[i,j]:=z[j];write(z[j]:9:4);end;
writeln;writeln;
for i:=1 to n do begin
for j:=1 to n do begin
B[i,j]:= A[i,j];write(B[i,j]:9:4);end;
writeln;end;
writeln;write('min = ',min:9:4, '   I = ', s);
end.