[JohnnyBravo]

чё самое интересное, сделал t:=length(p);
т.е. 50,1 вроде бы 4 получается, не знаю считается ли запятая или нет, но в общем получилось 6