подредьте прогу на тему строки. выполняется в консоле

[bad man]

program Project19;

{$APPTYPE CONSOLE}

uses
SysUtils;

var t:textfile;
s:string;
d,m,y,d1,m1,y1:integer;
begin
assignfile (t,'C:\Documents and Settings\Admin\Рабочий стол\input.txt');
reset(t);
while not eof do begin
readln(t,s);
d:=strtoint(copy(s,1,2));
m:=strtoint(copy(s,1,2));
y:=strtoint(copy(s,1,2));
case m of
3..5:
if (y<y1)
or(y=y1)and(m<m1)
or(y=y1)and(m=m1)and(d<d1) then begin
y1:=y;
m1:=m;
d1:=d;
end;
6..8:
if (y<y1)
or(y=y1)and(m<m1)
or(y=y1)and(m=m1)and(d<d1) then begin
y1:=y;
m1:=m;
d1:=d;
end;
9..11:
if (y<y1)
or(y=y1)and(m<m1)
or(y=y1)and(m=m1)and(d<d1) then begin
y1:=y;
m1:=m;
d1:=d;
end;
12,1,2:
if (y<y1)
or(y=y1)and(m<m1)
or(y=y1)and(m=m1)and(d<d1) then begin
y1:=y;
m1:=m;
d1:=d;
end;
end;
end;
closefile(t);
if y1=9999 then writeln('no spring') else
writeln(d1:2,'\',m1:2,'\',y1);
readln;
end.