Я это тут нашел
Сайт
------------ Дoбавленo в 18.23:
p1 := @s1[1];
а что здесь значит 1