program u;
{$APPTYPE CONSOLE}
uses
  SysUtils;
 
type
  tPerson = record
    name: string;
    age:  integer;
    end;
  tPeople = array of tPerson;
 
var people: tPeople;
 
//procedure getPeople( var result: tPeople );  // Method 1
function getPeople: tPeople;  // Method 2
  var
    s: string;
    i: integer;
  begin
  i := 0;
  repeat
    setLength( result, i+1 );
    write( 'Please enter a name> ' );
    readln( result[ i ].name );
    write( 'Please enter ', result[ i ].name, '''s age> ' );
    readln( result[ i ].age );
    write( 'Are there more (yes/no)? ' );
    readln( s );
    inc( i )
  until upCase( s[ 1 ] ) = 'N'
  end;
 
begin
// Method 1
//getPeople( people );
 
// Method 2
people := getPeople;
 
writeln( 'You entered ', length( people ), ' people.' )
end.