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

write(sample:pred(length(sample), ord(length(sample) > 0))); { all but last char }