Не работает функция copy и delete

[omigos99]

SysUtils;
var o,k,k2,s,i,r,j:integer;
l:extended;
ch:char;
st,st1,st2:string;
begin
readln(st);
r:=pos(',',st); writeln('r = ',r);
st1:=st;
delete(st1,0,r);
st2:=copy(st,r+1,(length(st)-length(st1)-1));
writeln('st1 = ',st1,' st2= ',st2);
end.

Это часть проги.
Вводится число с запятой(возможна и 16 СС, по-этому в строку), потом отделается целая часть от десятичной.
Подскажите где в коде ошибка? или как по-другому это можно реализовать?

[Alex Cones]

st1:=st; // Хорошо
delete(st1,0,r); // Хорошо
st2:=copy(st,r+1,(length(st)-length(st1)-1)); // Че за?

Лучше разделите на переменные. Тогда не запутаетесь.

P.S. А по рукам за неиспользование тега [CODE]?

[omigos99]

нашёл ошибку, не нужна помощь)