program MyRecordDemo;

uses
 Forms;

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

var
 Person: PersonRecordType;

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

 Writeln('Nazwisko: ', Person.Name);
 Writeln('Telefon: ', Person.PhoneNumber);
 Writeln('Wiek: ', Person.Age);
 Writeln('Pe: ', Person.Sex);

 Readln;
end.