FUNCTION StringSearch (ListOfNames : StringArray; Length : Integer;
                       Name : String)  : Integer;
Var
  I : Integer;
  Found : Boolean;

Begin
  I := 0;
  Found := False;
  WHILE Not Found And (I < Length) DO
   Begin
    I := I + 1;
    IF ListOfNames[I] = Name THEN
      Found := True
   End;
  IF Found THEN
    StringSearch := I
  ELSE
    StringSearch := 0;
End;


@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

FUNCTION CompareDates (Day1, Day2 : Date) : Integer;
Begin
  IF Day1.Year < Day2.Year THEN
    CompareDates := 1
  ELSE 
    IF Day1.Year > Day2.Year THEN
      CompareDates := 2
    ELSE
      IF Day1.Month < Day2.Month THEN
        CompareDates := 1
      ELSE
        IF Day1.Month > Day2.Month THEN
          CompareDates := 2
        ELSE
          IF Day1.Day < Day2.Day THEN
            CompareDates := 1
          ELSE
            IF Day1.Day > Day2.Day THEN
              CompareDates := 2
            ELSE
              CompareDates := 0;
End;



@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

PROECDURE GetInfo (Var Person : PersonRec);

Var
  Ch : Char;

Begin
  Writeln('Enter last name:');
  Readln(Person.LastName);
  Writeln('Enter first name:');
  Readln(Person.FirstName);
  Writeln('Sex (M or F):');
  Readln(Ch);
  IF (Ch='m') Or (Ch='M') THEN
    Person.Sex := Male
  ELSE IF (Ch='f') Or (Ch='F') THEN
    Person.Sex := Female;
  GetDate(Person.DOB);
  Writeln('Ststus (s,m,d,w):');
  Readln(Person.MaritalStatus);
End;



@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

Count := 0;
FOR I := 1 TO NumPeople DO
  IF (People[I].Sex = Female) And
     (People[I].MaritalStatus = 'M') And
     ((People[I].DOB.Year >= 1960) And (People[I].DOB.Year <= 1970)) THEN
    Count := Count + 1;


@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

FUNCTION Marry (Person1, Person2 : PersonRec) : Boolean;
Begin
  Marry := (Person1.MaritalStatus <> 'M') AND
           (Person2.MaritalStatus <> 'M') AND
           (Age(Person1.DOB) >= AgeOfConsent) AND
           (Age(Person2.DOB) >= AgeOfConsent) AND
           (Person1.Sex <> Person2.Sex);
End;