Поменять местами первый и последний элемент в списке

program spisok
uses CRT;
 
const
       MaxSize = 14;
 
Type
          Count = 0..MaxSize;
       DataType = Integer;
        KeyType = Byte;
 
       StdElement = record
             Data : DataType;
              Key : KeyType;
                    end;
 
      NodePointer = ^Node;
 
             Node = record
               El : StdElement;
             Next : NodePointer;
                    end;
 
             List = ^ListInstance;
     ListInstance = record
             Head : NodePointer;
             Tail : NodePointer;
          Current : NodePointer;
         ICurrent : Count;
                N : Count;
                    end;
Var
       L : List;
       Elem, Ee : StdElement;
       sk,f,created:boolean;
       a,b,h:integer;
       tkey:Keytype;
 
Label MENU, ENDING;
 
procedure Create(var L:List;var created:boolean);
begin
 new(L);
 with L^ do
 begin
    head:=nil;
    tail:=nil;
    current:=nil;
    icurrent:=0;
    n:=0;
 end;
 created:=true
end;
 
procedure InsertAfter(var L:List;e:StdElement);
var p:NodePointer;
begin
 if Not Full(L) then with L^ do
 begin
    new(p);
    p^.el:=e;
    if Empty(L) then
    begin
        head:=p;
        tail:=p;
        p^.next:=nil;
    end
    else
    begin
        p^.next:=current^.next;
        if Last(L) then tail:=p;
        current^.next:=p;
    end;
    current:=p;
    icurrent:=icurrent+1;
    n:=n+1;
 end
end;
 
procedure Spisok(L:List);
var i,k,m:integer;
var check:boolean;
var E:StdElement;
var ms:array [1..13] of integer;
begin
 Randomize;
 m:=13;
 if Empty(L) then
 begin
    Elem.Data:=random(101);Elem.Key:=random(101)+1;InsertAfter(L,Elem); m:=m-1;
 end;
 for k:=1 to m do
 begin
    Elem.Data:=random(101);
    repeat
        Elem.Key:=random(101)+1;
        check:=false;
        For i:=1 to Size(L) do
        Begin
            FindIth(L,i); Retrive(L,E);
            if Elem.Key=E.key  then check:=true;
        End
    until check=false;
    InsertAfter(L,Elem);
 end;
end;

procedure SearchAndChange(var head:List);
var
min,max,tmp,tmp1:head;
k:integer;
begin
  min:=head;
  max:=tail;
  tmp1:=p;
    while tmp1^.next <> nil do
      begin
        tmp:=p^.next;
          if tmp^.current > max^.current then
             max:=tmp;
          if tmp^.current < min^.current then
             min:=tmp;
        tmp1:=tmp1^.next;
      end;
  k:=min^.current;
  min^.current:=max^.current;
  max^.current:=k;
end;