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

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 SwapElem(var aList : TList);
var apElem, apElem1 : pNode;
begin
  if (aList.Last = nil) or (aList.First = aList.Last) then begin
   writeln('Элементы не найдены.');
   exit;
  end;
  apElem := aList.First;
  apElem1 := aList.First^.pNext;
  if apElem1 <> aList.Last then begin
   aList.First^.pNext := apElem1^.pNext;
   apElem1^.pNext := aList.First;
   aList.First := apElem1;
  end
  else begin
   aList.First^.pNext := nil;
   aList.Last^.pNext := aList.First;
   aList.First := aList.Last;
   aList.Last := apElem;
  end;
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); 
  SwapElem(M); 
  PrintList(M);
  FreeMemor(M);
  readln; 
end.