{ Pascal-Beispiel für Referenzübergaben }
procedure minmax( var g:list; var j,k:integer);
var i:1..n; u,v: integer;
begin j := g[1]; k := j; i := 2;
while .....
....
end; { minmax }