program array2 (input, output);

type b = array[-5..53] of char; (* declaration of a new NAMED type *)

var a : array[1..5] of integer; (* declaration of an ANONYMOUS type *)

(* anonymous arrays can't be passed as parameters *)

i : integer;

c : b; { variable c is an array of 59 characters }

begin

for i := 1 to 5 do

a[i] := i;

for i := 1 to 7 do

writeln (a [i]); { notice that we ar not passing the array, we are passing a

single array element and the array elements are predefined

above as integers }

writeln ('HAH!');

end.