type
  TNode = record
    Value: Integer;
    Text: String;
    Next: Pointer;
  end;

var
  A,B,C,D: TNode;

procedure Exchange(First,Second: TNode);
var
  Buffer: TNode;
begin
  New(Buffer);
  Buffer.Value := First.Value;
  Buffer.Text := First.Text;
  First.Value := Second.Value;
  First.Text := Second.Text;
  Second.Value := Buffer.Value;
  Second.Text := Buffer.Text;
  Dispose(Buffer);
end;

begin
  //Create linked list
  New(A);
  New(B);
  New(C);
  New(D);
  A.Next := B;
  B.Next := C;
  C.Next := D;
  //Exchange A and C
  Exchange(A,C);
  //Destroy linked list
  Dispose(A);
  Dispose(B);
  Dispose(C);
  Dispose(D);
end;