-- Swap -------------------------------------- procedure Swap(A, B : in out Integer) is -- procedure Swap(A : in out Integer; -- B : in out Integer) is C : Integer; begin C := A; A := B; B := C; end Swap;