Back to slide -- Keyboard shortcut: 'u'        next  su6.pas - Proceduren Ombyt(var T: ArrayType; i,j: TabelInterval).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 *)