let type ar = array of int var a:ar := new ar[1000] of 10 var i := 0 var max := 0 var pos := 0 in a[500] := 20; for i:=0 to 1000 do if max < a[i] then (max := a[i]; pos := i) end