program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
 
type
  Tperson = record
            Name:        String;
            Dateofbirth: TDateTime;
            end;
 
var
  s:           string;
  FileA:       textfile;
  datestring:  string;
  personarray: array [1..5] of Tperson;  // very good
  personinfo:  Tperson;
  I:           Integer;
 
 
begin
  // You only need to set this global value once
  ShortDateFormat := 'd/mm/yyyy';
 
  // Good
  Assign(FileA,'PeopleInformation.txt');
 
  // The following reads each line of the file but
  // does nothing with it...
  Reset(FileA);
  while not EOF(FileA) do
    begin
    Readln(FileA,s);
    // See note 1
    end;
  close(FileA);
 
  // The following is a loop that properly reads each
  // record from file. However, like the first loop's 
  // s:string variable, the information is never used;
  // it is forgotten the next time through the loop.
  // See note 2
  Reset (FileA);
  while not EOF(FileA) do
    begin
    Readln (FileA,personinfo.name);
    Readln (FileA,datestring);
    personinfo.Dateofbirth:=strToDate(datestring);
    Readln ( FileA );
    end;
 
  // Here you try to print a variable you never initialized.
  // See note 3
  writeln (personarray[1].name, personarray[1].Dateofbirth);
 
  // Wait for the user to press ENTER before terminating
  readln;
 
end.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,DateUtils;




 type Tperson = record
 Name:String;
 Dateofbirth: TDateTime;
 end;{record}




var


FileA:textfile;
datestring:string;
personarray:array [1..5] of Tperson;

I:Integer;




begin

ShortDateFormat := 'd/mm/yyyy';
   //Read whats on the text file:
   Assign(FileA,'PeopleInformation.txt');

   Reset(FileA);
 I:=1;
 while not EOF(FileA) do
 begin
 Readln (FileA,personarray[i].name);
 Readln (FileA,datestring);
 personarray[i].Dateofbirth:=strTodate(datestring);

 Readln ( FileA );
 I:=+1
 end;

 writeln (personarray[1].name, personarray[1].Dateofbirth);
 readln;
















end.

uses SysUtils;
var
  d: tDateTime;
  s: string;
begin
write( 'Please enter a date as M/D/Y: ' );
readln( s );
try
  d := strToDate( s )
except
  writeln( 'You did not enter a valid date.' );
  halt
  end;
ShortDateFormat := 'mmmm d, yyyy';
writeln( 'The date you entered was ', dateToStr( d ) )
end.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,DateUtils;




 type Tperson = record
 Name:String;
 Dateofbirth: TDateTime;
 end;{record}




var


FileA:textfile;
datestring:string;
personarray:array [1..5] of Tperson;
Dateofbirth1,Dateofbirth2,Dateofbirth3,Dateofbirth4,Dateofbirth5:string;

I:Integer;




begin


   //Read whats on the text file:
   ShortDateFormat := 'dd/mm/yyyy';
   Assign(FileA,'PeopleInformation.txt');

   Reset(FileA);
 I:=1;
 while not EOF(FileA) do
 begin

 Readln (FileA,personarray[i].name);
 Readln (FileA,datestring);
 personarray[i].Dateofbirth:=StrToDate(datestring);
 Readln ( FileA );
 I:=I+1;
 end;

Dateofbirth1:= dateToStr( personarray[1].Dateofbirth ) ;
Dateofbirth2:= dateToStr( personarray[2].Dateofbirth ) ;
Dateofbirth3:= dateToStr( personarray[3].Dateofbirth ) ;
Dateofbirth4:= dateToStr( personarray[4].Dateofbirth ) ;
Dateofbirth5:= dateToStr( personarray[5].Dateofbirth ) ;





writeln ('The oldest person is: ');
writeln (personarray[1].name );
readln;



























end.

var d1, d2: tDateTime;
begin
  d1 := strToDate( '28/10/2007' );
  d2 := strToDate( '29/10/2007' );
  if d1 < d2
    then writeln( 'correct: the 28th comes before the 29th' )
    else writeln( 'error: apparently the 29th comes before the 28th...' )
end.