[Alegun]

Код:

s:= s[Length(s)];