program MyArrayRecordDemo;

uses
 Forms;

type
 PersonRecordType = record
  Name: String[30];
  PhoneNumber: String[13];
  Age: Integer;
  Sex: Char;
 end;

 MyArrayType = array[1..3] of PersonRecordType;

var
 PersonArray: MyArrayType;

begin
 PersonArray[1].Name := 'Dan Osier';
 PersonArray[1].PhoneNumber := '(916)555-1212';
 PersonArray[1].Age := 32;
 PersonArray[1].Sex := 'M';

 PersonArray[2].Name := 'Susie Smith';
 PersonArray[2].PhoneNumber := '(916)555-9999';
 PersonArray[2].Age := 38;
 PersonArray[2].Sex := 'K';

 PersonArray[3].Name := 'Pat';
 PersonArray[3].PhoneNumber := '';
 PersonArray[3].Age := 1;
 PersonArray[3].Sex := '?';

 Writeln('Osoba 1 - Nazwisko: ', PersonArray[1].Name);
 Writeln('Osoba 1 - Telefon: ', PersonArray[1].PhoneNumber);
 Writeln('Osoba 1 - Wiek: ', PersonArray[1].Age);
 Writeln('Osoba 1 - Pe: ', PersonArray[1].Sex);

 Writeln('Osoba 2 - Nazwisko: ', PersonArray[2].Name);
 Writeln('Osoba 2 - Telefon: ', PersonArray[2].PhoneNumber);
 Writeln('Osoba 2 - Wiek: ', PersonArray[2].Age);
 Writeln('Osoba 2 - Pe: ', PersonArray[2].Sex);

 Writeln('Osoba 3 - Nazwisko: ', PersonArray[3].Name);
 Writeln('Osoba 3 - Telefon: ',PersonArray[3].PhoneNumber);
 Writeln('Osoba 3 - Wiek: ', PersonArray[3].Age);
 Writeln('Osoba 3 - Pe: ', PersonArray[3].Sex);

 Readln;
end.