Дан файл, содержащий различные даты. Каждая дата – это число, месяц и год. Найти все весенние даты.

uses CRT;
type
  TDate= record
  y, m, d: integer;
  end;
const
vesna =[3..5];
function StrToDate(str: string): TDate;
var
  t:TDate;
  i: integer;
  ts: string;
begin
  Val(str[1]+ str[2], t.d, i);
  Val(str[4] + str[5], t.m, i);
  val(str[7] + str[8] + str[9] + str[10], t.y, i);
  StrToDate := t;
end;
var
  year: integer;
  f: text;
  ts: string;
  last,
tmp_date: TDate;
begin
  clrscr;
  assign(f,'input.txt');
  reset(f);
 year := maxint;
 last.y := 0;
  last.d := 0;
    last.m := 0;
writeln('Весенние даты: ');
  while not eof(f) do
   begin
     readln(f, ts);
       tmp_date := StrToDate(ts);
     if tmp_date.m in vesna then
      write(ts, '  ');
     if tmp_date.y < year then
      year := tmp_date.y;
     if(tmp_date.y >= last.y) and (tmp_date.m >= last.m) and (tmp_date.d >last.d) then
      last := tmp_date;
    end;
writeln;
    writeLn('Год с наим. номером: ', year);
 writeLn('Самая поздняя дата: ', last.d, '.', last.m,'.', last.y);
  readln;
 close(f);
end.