Составить программу , выводящую на экран график отпусков

begin
  var names := Arr('Михайлова Жанна Германовна',
                   'Григорьева Евпраксия Александровна',
                   'Пахомова Лариса Авксентьевна',
                   'Архипов Парфений Александрович',
                   'Копылов Юрий Варламович',
                   'Ильин Якун Протасьевич',
                   'Бурова Глафира Тихоновна',
                   'Васильева Любовь Фёдоровна',
                   'Кузьмин Федосей Максимович',
                   'Анисимова Акулина Святославовна', 
                   'Нестерова Ксения Юлиановна',
                   'Евсеев Тихон Брониславович',
                   'Щукин Глеб Максимович',
                   'Суворова Глафира Еремеевна',
                   'Назаров Гордей Евсеевич',
                   'Фадеев Макар Донатович',
                   'Некрасов Егор Лаврентьевич',
                   'Гаврилов Куприян Серапионович',
                   'Веселов Лаврентий Протасьевич',
                   'Гришин Иван Геннадьевич');
                   
  var g := Range(0, Random(10, 20) - 1).Select(i -> begin
    var v := Random(15, 25);
    var st := (new System.DateTime(2017, 1, 1)).AddDays(Random(1, 300));
    result := (names[i], st, st.AddDays(v), v)
    end).ToArray;
  
  g.Println(NewLine);
  
  var d := System.DateTime.Parse(ReadlnString('Введите дату в формате день/месяц/год'));
  writeln('В отпуске будут следующие сотрудники:' + NewLine,
    g.Where(v -> (d >= v[1]) and (d <= v[2])).Select(v -> v[0]).DefaultIfEmpty('<Список сотрудников пуст>'));
end.