Найти все весенние даты

uses
  crt;
type
  date = record
    day: 1..31;
    mounth: 1..12;
    year: 1900..2100;
  end;
var
  j,i: integer;
  tmp: date;
  a: array [1..30] of date;
  c: char;
begin
  clrscr;
  j:=0;    {количество дат}
  repeat
    clrscr;
    inc(j);
    write('Введите число: ');
    readln(a[j].day);
    write('Введите месяц: ');
    readln(a[j].mounth);
    write('Введите год: ');
    readln(a[j].year);
    write('Добавить еще одну дату?(y/n): ');
    readln(c);
  until not (c in ['y','Y']);
  
  {Находим наименьшую дату}
  
  tmp:=a[1];
  for i:= 2 to j do
    if a[i].year<tmp.year then
      tmp:=a[i];
  writeln('Дата с наименьшим номером: ',tmp.day,' ',tmp.mounth,' ',tmp.year);
  
  {Находим весенние даты}
  
  writeln('Весенние даты: ');
  for i:= 1 to j do
    if a[i].mounth in [3..5] then
      writeln(a[i].day,' ',a[i].mounth,' ',a[i].year);
 
  {Находим самую позднюю дату}
 
  tmp:=a[1];
  for i:= 2 to j do
    if a[i].year>tmp.year then
      tmp:=a[i]
    else
      if a[i].year=tmp.year then
        if a[i].mounth>tmp.mounth then
          tmp:=a[i]
        else
          if a[i].mounth=tmp.mounth then
            if a[i].day>tmp.day then
              tmp:=a[i];
  writeln('Самая поздняя дата: ',tmp.day,' ',tmp.mounth,' ',tmp.year);
end.