RosettaCodeData/Task/Generic-swap/Delphi/generic-swap-1.delphi

procedure Swap_T(var a, b: T);
var
  temp: T;
begin
  temp := a;
  a := b;
  b := temp;
end;