Создать линейный однонаправленный список из целых чисел. Определить среднее арифметическое значений всех элементов

program Spisok;
 
type
  Tinf = integer;{тип данных, который будет храниться в элементе списка}
  List = ^TList;{Указатель на элемент типа TList}
  TList = record {А это наименование нашего типа "запись" обычно динамические структуры описываются через запись}
    data: TInf;  {данные, хранимые в элементе}
    next: List;   {указатель на следующий элемент списка}
  end;
 
{Процедура добавления нового элемента в односвязный список}
procedure AddElem(var spis1: List; znach1: TInf);
var
  tmp: List;
begin
  if spis1 = nil then {Проверяем не пуст ли список, если пуст, то }
  begin
    New(spis1);
    tmp := spis1;
  end
  else {в случае если список не пуст}
  begin
    tmp := spis1;
    while tmp^.next <> nil do
      tmp := tmp^.next; {ставим tmp на последний элемент списка}
    New(tmp^.next);
    tmp := tmp^.next;   {переносим tmp на новый элемент}
  end;
  tmp^.next := nil; {зануляем указатель}
  tmp^.data := znach1; {заносим значение}
end;
 
{процедура печати списка
полностью расписана при работе со стеком}
procedure Print(spis1: List);
begin
  if spis1 = nil then
  begin
    writeln('Список пуст.');
    exit;
  end;
  while spis1 <> nil do
  begin
    Write(spis1^.data, ' ');
    spis1 := spis1^.next
  end;
end;
 
{процедура удаления списка
 полностью расписана при работе со стеком}
procedure FreeStek(spis1: List);
var
  tmp: List;
begin
  while spis1 <> nil do
  begin
    tmp := spis1;
    spis1 := spis1^.next;
    Dispose(tmp);
  end;
end;
 
 
var
  Spis, tmpl: List;
  s, i, n, znach: integer;
 
begin
  Spis := nil;
  s := 0;
  randomize;
  write('Cколько элементов в списке?');
  readln(n);
  for i := 1 to n do
  begin
    znach := -n div 2 + random(n);
    AddElem(Spis, znach);
  end;
  Print(Spis);
  writeln;
  i := 1;
  while spis <> nil do
  begin
    if not (i in [2, 3]) then
      s := s + spis^.data;
    spis := spis^.next;
    inc(i);
  end;
  writeln('Среднее: ', s / (n - 2));
  FreeStek(Spis);
end.