Организовать ввод, хранение в массиве

Uses Crt;
Type
    TMonth = (Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec);
    TDate = record
     Day: 1..31;
     Month: TMonth;
     Year: 1900..9999;
    end;
Const
     RuMonth: Array[TMonth] of String = ('Янв','Фев','Мар','Апр','Май','Июн','Июл','Авг','Сент','Окт','Ноя','Дек');
     Spring: set of TMonth = [Mar,Apr,May];
     Summer: set of TMonth = [Jun,Jul,Aug];
     Autumn: set of TMonth = [Sep,Oct,Nov];
     Winter: set of TMonth = [Dec,Jan,Feb];
     DateCount = 5;
 
Var
   Arr: Array[1..DateCount] of TDate;
   i,Count: Integer;
   Alpha: Char;
begin
 ClrScr;
 Randomize;
 WriteLn('Генерация и вывод дат:'); 
 for i := 1 to DateCount
 do begin
    Arr[i].Day := Random(31)+1;
    Arr[i].Month := TMonth(Random(12)+1);
    Arr[i].Year := 1900+Random(110);
    WriteLn(Arr[i].Day, '.', Ord(Arr[i].Month)+1, '.', Arr[i].Year);
    end;
 WriteLn('Вывод весенних дат:');
 for i := 1 to DateCount
 do if Arr[i].Month in Spring
    then WriteLn(Arr[i].Day, '.', Ord(Arr[i].Month)+1, '.', Arr[i].Year);
 
 Alpha := RuMonth[TMonth(Random(12))][1];
 Count := 0;
 for i := 1 to DateCount
 do if RuMonth[Arr[i].Month][1] = Alpha
    then Inc(Count);
 WriteLn('Количество дат с месяцем на ',Alpha,':',Count);
 ReadLn;
end.