[aleksnine]

Код:

s:=copy(s,ansipos('>',s)+1,length(s));
s:=copy(s,0,ansipos('<',s));