minor nit-pick

17 Dec 2002

      The program below works, but the array in the unit defaults to
a zero-based array.

unit bar;

interface

procedure show( a: array of integer );

implementation

procedure show( a: array of integer );
var
  i : integer;
begin
  for i := 1 to 4 do
    write( a[ i ]:7 );
  writeln;
end;

end.

program foo;
uses bar;
var
  a: array[1..5] of integer;
  i: integer;
begin
  for i := 1 to 5 do
    a[i] := i;
  for i := 1 to 5 do
    write( a[i]:7 );
  writeln;
  show( a );
end.

Russ

minor nit-pick

Russell Whitaker