Lecture 6 - slide 18 : 46 Program 1

procedure Ombyt(var T: ArrayType; i,j: TabelInterval); (* Ombyt element i og j i T *) var temp: TabelElement; begin temp := T[i]; T[i] := T[j]; T[j] := temp end; (* Ombyt *)