Определить самую раннюю весеннюю дату

var data: string;
    f: text;
procedure search(var data:string);
var ear_spr, s, s_day, s_month:string;
    k, day, day1, month,month1, r:integer;
    err:integer;
begin
r:=0;
day:=31;
day1:=0;
month1:=0;
month:=05;
data:=data + ' ';
k:=pos(' ', data);
while not eof(f) do begin
  s:=copy(data,1,k-1);
  s_day:=copy(s,1,k-7);
  s_month:=copy(s,4,k-5);
  val(s_day,day1,err);
  if err=0 then val(s_month,month1,err);
  if err=0 then begin
  if s_month in ['03','04','05'] then begin
    if day1<day then
     day:=day1
    else if day1=day then begin
       if month1<month then
         month:=month;
         ear_spr:=s;
       end
       else delete(s,1,k);
       r:=r+1;
  end
  else delete(s,1,k);
  if r=0 then writeln('')
  else writeln('Самая ранняя весенняя дата:', ear_spr);
end;
end;
end;
begin
assign(f, 'C:\Users\stepa\idz2.1_input.txt');
reset(f);
search(data);
close(f);
assign(f, 'C:\Users\stepa\idz2.1_output.txt');
rewrite(f);
close(f);
end.

const
  inputname='input.txt';
  outputname='outut.txt';
function convert(s:strinfg):string; {dd/mm/yyyy->yyyymmdd}
var n:string;
begin
  n:=s[7]+s[8]+s[9]+s[10]+s[4]+s[5]+s[1]+s[2];
  convert:=n;
end;
function spring(s:string):boolean; {dd/mm/yyyy->?(mm='03'or'04'or'05')}
begin
  spring:=(s[4]='0')and((s[5]='3')or(s[5]='4')or(s[5]='5'));
end;
var a,b,c,d:string;t:text;s:boolean;
begin
  assign(t,inputname);reset(t);
  readln(t,a);b:=convert(a);s:=spring(a);
  while not eof(t) do begin readln(t,c);d:=convert(c);
  if spring(c)then if not s then begin a:=c;b:=c end else
  if c<b then begin a:=c;b:=c end end;
  close(t);
  if s then begin assign(t,outputname);rewrite(t);write(t,a);close(t);end;
end.