Contact: aviboots(AT)netvision.net.il
40,760 questions
53,134 answers
573 users
Program Example; Var arr : array[0..8] of integer = (1, 2, 3, 4, 5, 6, 7, 8, 9); i : integer; begin For i := 0 to High(arr) do begin Write(arr[i], ' '); end; end. (* run: 1 2 3 4 5 6 7 8 9 *)