let in 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 999 do when max < a[i] do (max := a[i]; pos := i) end ; 1 end