9. Написать программу, содержащую подпрограмму, которая копирует в начало непустого списка М его последний элемент. Если элементы не найдены, то выдат

program list1;
uses
  crt;
type
  pNode = ^Node;
  Node  = record
  TData : integer;
  pNext : pNode;
  end; 
  TList = record
  First, Last : pNode;
  end;
procedure InitList(var aList : TList);
begin
  aList.First := nil; aList.Last := nil;
end;  
procedure AddList(var aList : TList; const apElem : pNode);
begin
  if apElem = nil then exit;
  if aList.First = nil then begin
   aList.First := apElem;
   aList.Last := aList.First;
  end   
  else begin
   aList.Last^.pNext := apElem;
   aList.Last := apElem;
   aList.Last^.pNext := nil; 
  end;
end;  
procedure PrintList(aList : TList);
begin
  if aList.Last = nil then begin
    writeln('Список Пуст.');
    exit;
  end;
  while aList.First<>nil do begin
    write(aList.First^.TData : 4);
    aList.First := aList.First^.pNext; 
  end;
  writeln; 
end;
procedure CopyElem(var aList : TList);
var apElem : pNode;
begin
  if aList.Last = nil then begin
   writeln('Элементы не найдены.');
   exit;
  end;
  GetMem(apElem, SizeOf(pNode));
  apElem^.TData := aList.Last^.TData;
  apElem^.pNext := aList.First;
  aList.First   := apElem;
end;
procedure FreeMemor(aList : TList);
var apElem : pNode;
begin
  while aList.First <> nil do begin
  apElem := aList.First;
  FreeMem(apElem, SizeOf(pNode));
  aList.First := aList.First^.pNext;
  end;
end;
var
  M : TList;
  pElem : pNode;
  n, i : byte;
begin
  clrscr;
  write('Кол-во элементов исходного списка М : ');
  readln(n); 
  InitList(M);
  randomize;
  for i := 1 to n do begin
   GetMem(pElem, SizeOf(pNode));
   pElem^.TData := random(61)-30;
   AddList(M,pElem);
  end;
  PrintList(M);
  CopyElem(M);
  PrintList(M);
  FreeMemor(M);
  readln; 
end.

procedure FreeMemor(aList : TList);
var apElem : pNode;
begin
  while aList.First <> nil do begin
  apElem := aList.First;
  aList.First := aList.First^.pNext;    
  FreeMem(apElem, SizeOf(pNode));  
  end;
end;