added setlength example

docs/refex/Makefile

@@ -38,7 +38,7 @@ OBJECTS=ex1 ex2 ex3 ex4 ex5 ex6 ex7 ex8 ex9 ex10 ex11 ex12 ex13 ex14 \
         ex41 ex42 ex43 ex44 ex45 ex46 ex47 ex48 ex49 ex50 ex51 ex52 ex53 \
         ex54 ex55 ex56 ex57 ex58 ex59 ex60 ex61 ex62 ex63 ex64 ex65 ex66 \
         ex67 ex68 ex69 ex70 ex71 ex72 ex73 ex74 ex75 ex76 ex77 ex78 ex79 \
-	ex80 ex81 ex82 ex83
+	ex80 ex81 ex82 ex83 ex84 ex85
 
 TEXOBJECTS=$(addsuffix .tex, $(OBJECTS))
 

docs/refex/README

@@ -86,4 +86,4 @@ ex80.pp contains an example of the High/Low functions.
 ex81.pp contains an example of the HexStr function.
 ex82.pp contains an example of the BinStr function.
 ex83.pp contains an example of the Assigned function.
-ex84.pp contains an example of the Library keyword.
+ex84.pp contains an example of the Library keyword.ex85.pp contains an example of the SetLength function.

docs/refex/ex85.pp

@@ -0,0 +1,11 @@
+Program Example85;
+
+{ Program to demonstrate the SetLength function. }
+
+Var S : String;
+
+begin
+  FillChar(S[1],100,#32);
+  Setlength(S,100);
+  Writeln ('"',S,'"');
+end.