program q;<br />
var f:text;<br />
s,st:string;<br />
d,m,y,mind,minm,miny,err:integer;<br />
begin<br />
assign(f,'d:\test.txt');<br />
reset(f);<br />
mind:=31;<br />
minm:=12;<br />
miny:=3000;<br />
while Not Eof(f) do begin<br />
readln(f,s);<br />
val(copy(s,1,2),d,err);<br />
val(copy(s,4,2),m,err);<br />
val(copy(s,7,4),y,err);<br />
if y<miny then begin<br />
st :=s;<br />
mind:=d;<br />
minm:=m;<br />
miny:=y;<br />
end<br />
else if y=miny then begin<br />
st :=s;<br />
mind:=d;<br />
minm:=m;<br />
miny:=y;<br />
end<br />
else<br />
if m=minm then<br />
if d<mind then begin<br />
st :=s;<br />
mind:=d;<br />
minm:=m;<br />
miny:=y;<br />
end<br />
end;<br />
close(f);<br />
writeln('naim. data',st);<br />
readln;<br />
end.<br />