program ??;
 
var test : array[0..4] of String;
      l : Integer;
 
 
begin
 
a[0] := '1';
a[1] := '2';
a[2] := '3';
a[3] := '4';
a[4] := '5';  
 
 
writeLn('There are ',length(a),' elements in the array');
 
end.

var
  xs: array of integer;
  cntr: integer;
begin
  setLength( xs, 5 );
  writeln( 'Please enter ', length( xs ), ' integers: ' );
  for cntr := low( xs ) to high( xs ) do read( xs[ cntr ] );
end.