Вывести список людей, рожденных в четный день недели

Type
 Klass=Record
 fio: string;
 d: Byte; 
 m: Byte;
 g: Integer;
end;
Var 
 x: Array [1..30] of klass;
 i, n: Integer;
Begin
Write ('Введите кол-во учеников:   '); Readln (n);
For i:=1 to n do
With x[i] do
begin
 Write ('Введите ФИО:    '); Readln (fio);
 Write ('День рождения:  '); Readln (d);
 Write ('Месяц рожд:   '); Readln (m);
 Write ('Год рожд:   '); Readln (g);
end;
Writeln ('Список учеников родившихся в четный день: ');
For i:=1 to n do
Writeln (x[i].fio);
Readln
End.

uses system;
Type
 Klass=Record
 fio: string;
 d: string;
end;
Var 
 x: Array [1..30] of klass;
 i, n: Integer;
Begin
Write ('Введите кол-во учеников:   '); Readln (n);
For i:=1 to n do
With x[i] do
begin
 Write ('Введите ФИО:    '); Readln (fio);
 Write ('дата рождения (05.11.1999):  '); Readln (d);
end;
Writeln ('Список учеников родившихся в четный день: ');
For i:=1 to n do if DateTime.Parse(x[i].d).DayOfWeek in [DayOfWeek.Tuesday,DayOfWeek.Thursday,DayOfWeek.Saturday] then
Writeln (x[i].fio);
Readln
End.