Тип record: собственные типы данных

program PR17;
 
{$MODE OBJFPC}{$H+}
{$APPTYPE CONSOLE}
{$codepage utf8}
 
Uses
SysUtils;
 
type
  TName = record
 
  firstName     :string;
  Height        :integer;
 
         end;
  var
 Name, Height1: TName;
begin
 
  Name.firstName:= 'Mark';
  WriteLn(Name.firstName);
  ReadLn;
 
  Height1.Height:= 188;
  WriteLn(IntToStr(Height1.Height));
  ReadLn;
 
 
end.

var Person: TName;//одна реременная-запись с двумя полями
begin
//не используйте в качестве переменных зарезервирванные слова, каким является Name
Person.firstName:= 'Mark';
WriteLn(Person.firstName);
ReadLn;
Person.Height:= 188;
WriteLn(Person.Height));
ReadLn;
end;

Type TName = Record
 
DayOfBirth :TDateTime;
 
end;
 
var 
Day: TName;
 begin
        Day.DayOfBirth:= ???
        WriteLn(Day.DayOfBirth);
        ReadLn;
 end.

program Project1;
type TDate=record
           day,month,year:word;
           end;
var DayOfBirth:TDate;
begin
DayOfBirth.day:=25;
DayOfBirth.month:=10;
DayOfBirth.year:=2005;
WriteLn(DayOfBirth.day,'.',DayOfBirth.month,'.',DayOfBirth.year);
ReadLn;
end.

DayOfBirth.day:=25;
DayOfBirth.month:=10;
DayOfBirth.year:=2005;

type
  TName = record
 
  IsWomen       :Boolean;
 
         end;
  var
IsWomen1: TName;
 
begin
 
 
  if IsWomen1.IsWomen = false
  then WriteLn(BoolToStr(IsWomen1.IsWomen));
  ReadLn;

then WriteLn(BoolToStr(IsWomen1.IsWomen));

program project1;
{$MODE OBJFPC}{$H+}
{$APPTYPE CONSOLE}
{$codepage utf8}
Uses SysUtils;
var day,month,year:word;
    DayOfBirth:TDateTime;
begin
Writeln('Введите день. месяц и год рождения');
readln(day,month,year);
DayOfBirth:=EncodeDate(year,month,day);
WriteLn(DateToStr(DayOfBirth));
ReadLn;
end.

then WriteLn(BoolToStr(IsWomen1.IsWomen, true));

then WriteLn(BoolToStr(IsWomen1.IsWomen, 'баба', 'мужик'));