Initial data commit

Task/Substring-Top-and-tail/Pascal/substring-top-and-tail.pas

@@ -0,0 +1,29 @@
+program topAndTail(output);
+var
+	line: string(20);
+begin
+	line := 'ABCDEF';
+	
+	if length(line) > 1 then
+	begin
+		{ string with first character removed }
+		writeLn(subStr(line, 2));
+		{ index range expression: only possible for strings }
+		{ _not_ designated `bindable` [e.g. `bindable string(20)`] }
+		writeLn(line[2..length(line)]);
+		
+		{ string with last character removed }
+		
+		writeLn(subStr(line, 1, length(line) - 1));
+		{ only legal with non-bindable strings: }
+		writeLn(line[1..length(line)-1])
+	end;
+	
+	{ string with both the first and last characters removed }
+	if length(line) > 2 then
+	begin
+		writeLn(subStr(line, 2, length(line) - 2));
+		{ only for non-bindable strings: }
+		writeLn(line[2..length(line)-1])
+	end
+end.