Напишите процедуру добавления элемента вместо заданного или в середину списка

uses
  crt;
type
  TData = integer;
  PTNode = ^TNode;
  TNode  = record
  Data  : TData;
  PNext : PTNode;
  end;  
  TList = record
  First, Last : PTNode;
  end;
  //инициация списка
procedure InitList(var aList : TList);
begin
  aList.First := nil; aList.Last := nil;
end;  
 //добавление элем в конец списка
procedure AddList(var aList : TList; aData : TData);
var PElem : PTNode;
begin
  New(PElem);
  PElem^.Data := aData; PElem^.PNext := nil;
  If aList.Last = nil then aList.First := PElem
  else aList.Last^.PNext := PElem;
  aList.Last := PElem;  
end;
//вывод списка
procedure PrintList(aList : TList);
begin
  If aList.First = nil then writeln('Список пуст.')
  else writeln('Список : ');
  while aList.First <> nil do begin
    write(aList.First^.Data:4);
    aList.First := aList.First^.PNext;
  end;
  writeln;
end;
function NumList(aList : TList) : byte;
var i : byte;
begin
  i := 0;
  While aList.First<>nil do begin
   aList.First := aList.First^.PNext;
   inc(i);
  end;
  NumList := i;
end;
procedure AddListPos(var aList : TList);
var i, n : byte; PElem : PTNode; 
begin
  write('Номер элемента в списке : '); readln(n);
  If n > NumList(aList) then begin
    writeln('Элемента с заданным номером в списке нет.');
    readln;
    exit;
  end;
  i := 1; PElem := aList.First;
  while i<n do begin
    PElem := PElem^.PNext;
    inc(i); 
  end;
  write('Введите элемент : '); readln(PElem^.Data);
end;
procedure AddListMid(var aList : TList);
var i : byte; PElem, PElem1 : PTNode;
begin
  i := 1; PElem := aList.First;
  while i < (NumList(aList) div 2) do begin
    PElem := PElem^.PNext;
    inc(i); 
  end;
  New(PElem1);
  write('Введите элемент : '); readln(PElem1^.Data);
  PElem1^.PNext := PElem^.PNext;
  PElem^.PNext := PElem1;
end;
var
  List : TList;
  a : TData;
  c : char;
begin
  InitList(List);
  repeat
  clrscr;
  writeln('МЕНЮ : ');
  writeln('Добавить элемент в конец списка    - 1');
  writeln('Вывод списка                       - 2');
  writeln('Добавить в середину списка элемент - 3');
  writeln('Добавить элемент вместо заданного  - 4');
  writeln('Выход                              - 0');
  c := readkey;
  case c of 
  '1' : begin
        write('Введите элемент : '); readln(a);
        AddList(List,a);
        end;
  '2' : begin
        PrintList(List);
        readln;
        end;
  '3' : AddListMid(List);
  '4' : AddListPos(List);       
  end;  
  until c = '0';
end.