Пусть дан массив, содержащий даты. Каждая дата – число, месяц, год. Найти все весенние даты.Использование комбинированного и множественного типа.Pascal.Помогите пожалуйста

Спасибо большое,благодаря вам и вашему сайту,я стал лучше разбираться в программировании на языке Pascal

Пожалуйста

// PascalABC.NET 3.0, сборка 1076const  n=20; { количество дат }type  TDate=record    d:1..31;    m:1..12;    y:word  end;var  dates:array[1..n] of TDate;  i:byte;  s,st:string;  begin  Randomize;  for i:=1 to n do begin    s:='';    With dates[i] do begin      d:=Random(27)+1;      Str(d,st);      if Length(st)=1 then st:='0'+st;      s:=s+st+'.';      m:=Random(12)+1;      Str(m,st);      if Length(st)=1 then st:='0'+st;      s:=s+st+'.';      y:=Random(51)+1960;      Str(y,st);      s:=s+st;      if m in [3..5] then s:=s+' - весенняя';      Writeln(s)    end  endend.Тестовое решение:22.12.197921.10.197525.03.1980 - весенняя23.04.1967 - весенняя09.10.196716.05.1965 - весенняя09.08.199605.10.200110.11.198518.08.197008.10.198301.12.200501.01.199409.11.196214.09.197924.03.2008 - весенняя14.01.200322.04.1990 - весенняя18.08.196916.05.2009 - весенняя