RosettaCodeData/Task/Substring/Pascal/substring-2.pas

var myBindableStringVariable: bindable string(20);