Найти среднее арифметическое отрицательных элементов списка и вставить его в список перед первым отрицательным элементом

uses
  crt;
type
  TData  = real;
  TPNode = ^TNode;
  TNode  = record
  Data : TData;
  Next : TPNode;
  end;
  TList = record
  First, Last : TPNode;
  end;
//  добавляет элемент в конец списка
procedure AddList(var aList : TList; n : TData);
var aL : TList;
begin
  If aList.Last = nil then begin
    New(aList.Last);
    aList.Last^.Data := n;
    aList.First := aList.Last;
  end else begin
    aL.First := nil;
    aL.Last := nil;
    AddList(aL,n);
    aList.Last^.Next := aL.First;
    aList.Last := aL.Last;
  end;
  aList.Last^.Next := nil;
end;
//  выводит список
procedure Print(aList : Tlist);
var aL : TList;
begin
  if aList.First = nil then writeln
  else begin 
    write(aList.First^.Data:7:2);
    aL.First := aList.First^.Next;  
    Print(aL);
  end;
end;  
//   вставляет элемент в список перед элементом с заданным адресом 
procedure InsertElem(var aList : TList; aPNode : TPNode; aData : TData);
var aPElem : TPNode; aL : TList;
begin
  If (aPNode = nil) or ((aList.First = nil) and (aList.Last = nil)) then exit;
  If aPNode = aList.First then begin
    New(aPElem);
    aPElem^.Data := aData;
    aPElem^.Next := aList.First;
    aList.First  := aPElem;
  end else begin
    aPElem := aList.First;
    while aPElem^.Next <> aPNode do aPElem := aPElem^.Next;
    aL.First := aPNode; aL.Last := aList.Last;
    InsertElem(aL,aPNode,aData);
    aPElem^.Next := aL.First;
  end;
end;
//  возвращает адрес первого отрицательного элемента списка
function NegElem(aList : TList) : TPNode;
var aPElem : TPNode;
begin
  If aList.First = nil then exit;
  aPElem := aList.First;
  while (aPElem^.Data>=0) and (aPElem^.Next<>nil) do 
    aPElem := aPElem^.Next;
  If aPElem^.Data<0 then NegElem := aPElem
  else NegElem := nil;
end;
//  возвращает среднее арифметическое отрицательных элементов списка
function Average(aList : TList) : TData;
var s : TData; i : byte;
begin
  i := 0; s := 0;
  while aList.First<>nil do begin
    if aList.First^.Data<0 then begin 
      s := s + aList.First^.Data;
      inc(i);
    end;  
    aList.First := aList.First^.Next;
  end;
  If i <> 0 then Average := s/i
  else Average := 0;
end;
procedure FreeMemor(var aList : Tlist);
var PElem : TPNode;
begin
  while aList.First<>nil do begin
    PElem := aList.First;
    aList.First := aList.First^.Next;
    Dispose(PElem);
  end;
  aList.Last := nil;
end;
var
  P1   : TList;
  i, n : byte;
  a    : TData;
begin
  clrscr;
  write('List size : '); readln(n); 
  P1.First := nil;
  P1.Last  := nil;
  for i := 1 to n do begin
    write(i,'-oe number : '); readln(a);
    AddList(P1,a);
  end; writeln;
  Print(P1); 
  InsertElem(P1,NegElem(P1),Average(P1));
  Print(P1);
  FreeMemor(P1);
  readln;
end.

uses
  crt;
type
  TData  = real;    //тип информационной части узла списка
  TPNode = ^TNode;  //указатель на узел списка
  TNode  = record   //зел списка
  Data : TData;     //информационная часть 
  Next : TPNode;    //указатель на следующий узел списка
  end;
  TList = record    //тип список
  First, Last : TPNode;  //указатели на первый и последний узлы списка
  end;
//  добавляет элемент в конец списка
procedure AddList(var aList : TList; n : TData);
var aL : TList;
begin
  If aList.Last = nil then begin  //если список пуст 
    New(aList.Last);                 //выделяем динамич память
    aList.Last^.Data := n;           //и помещаем число в список
    aList.First := aList.Last;
  end else begin                  //список не пуст
    aL.First := nil; aL.Last := nil; //инициируем вспомогат список
    AddList(aL,n);                   //помещаем в него число
    aList.Last^.Next := aL.First;    //объединяем исходный и вспомогательный списки
    aList.Last := aL.Last;
  end;
  aList.Last^.Next := nil;
end;
//  выводит список
procedure Print(aList : Tlist);
begin
  if aList.First = nil then writeln  //список пуст
  else begin                         //список не пуст
    write(aList.First^.Data:7:2);    //выводим первый элемент списка
    aList.First := aList.First^.Next;//уменьшаем список на первый элемент  
    Print(aList);                    //выводим оставшийся список
  end;
end;  
//   вставляет элемент в список перед элементом с заданным адресом 
procedure InsertElem(var aList : TList; aPNode : TPNode; aData : TData);
var aPElem : TPNode; aL : TList;
begin
  If (aPNode = nil) or ((aList.First = nil) and (aList.Last = nil)) then exit;//если список пуст или пуст заданный адрес 
  If aPNode = aList.First then begin //вставляем перед первым элементом списка
    New(aPElem);                         //выделям динамич память под элемент
    aPElem^.Data := aData;               //помещаем число в этот элемент
    aPElem^.Next := aList.First;         //помещаем его в 
    aList.First  := aPElem;              //начало списка
  end else begin                     //вставляем не перед первым элементом списка
    aPElem := aList.First;               
    while aPElem^.Next <> aPNode do aPElem := aPElem^.Next; //адрес узла списка после которого вставляем элемент
    aL.First := aPNode; aL.Last := aList.Last; //список перед первым узлом 
    InsertElem(aL,aPNode,aData);               //которого вставляем элемент
    aPElem^.Next := aL.First;                  //связываем получившийся список с исходным
  end;
end;
//  возвращает адрес первого отрицательного элемента списка
function NegElem(aList : TList) : TPNode;
var aPElem : TPNode;
begin
  If aList.First = nil then exit;  //если список пуст
  aPElem := aList.First;
  while (aPElem^.Data>=0) and (aPElem^.Next<>nil) do //пока узел списка не отрицателен и не последний в списке 
    aPElem := aPElem^.Next;                          //перебираем каждый узел последовательно
  If aPElem^.Data<0 then NegElem := aPElem           //если найденный узел отрицательный
  else NegElem := nil;                               //отрицательных узлов в списке нет
end;
//  возвращает среднее арифметическое отрицательных элементов списка
function Average(aList : TList) : TData;
var s : TData; i : byte;
begin
  i := 0; s := 0;
  while aList.First<>nil do begin       //пока не кончился список
    if aList.First^.Data<0 then begin      //если элемент отрицательный
      s := s + aList.First^.Data;          //суммируем его
      inc(i);                              //кол-во отрицательных элементов
    end;  
    aList.First := aList.First^.Next;   //переходим к следующему элементу
  end;
  If i <> 0 then Average := s/i         //если есть отрицательные элементы
  else Average := 0;                    //нет отрицательных элементов
end;
//  освобождает динамич память
procedure FreeMemor(var aList : Tlist);
var PElem : TPNode;
begin
  while aList.First<>nil do begin
    PElem := aList.First;
    aList.First := aList.First^.Next;
    Dispose(PElem);
  end;
  aList.Last := nil;
end;
var
  P1   : TList;
  i, n : byte;
  a    : TData;
begin
  clrscr;
  write('List size : '); readln(n); 
  P1.First := nil; P1.Last  := nil; //инициируем список
  //добавляем в список n чисел
  for i := 1 to n do begin
    write(i,'-oe number : '); readln(a);
    AddList(P1,a);
  end; 
  Print(P1); //выводим исходный список
  //вставляем в список средн арифм отрицательных элементов 
  //перед первым отрицательным
  InsertElem(P1,NegElem(P1),Average(P1)); 
  Print(P1); //преобразованный список
  FreeMemor(P1);  //освобождаем динамическую память
  readln;
end.