tasks a-s

Task/Copy-a-string/Pascal/copy-a-string.pascal

@@ -0,0 +1,28 @@
+program in,out;
+
+type
+
+   pString = ^string;
+
+var
+
+   s1,s2 : string ;
+   pStr  : pString ;
+
+begin
+
+   /* direct copy */
+   s1 := 'Now is the time for all good men to come to the aid of their party.'
+   s2 := s1 ;
+
+   writeln(s1);
+   writeln(s2);
+
+   /* By Reference */
+   pStr := @s1 ;
+   writeln(pStr^);
+
+   pStr := @s2 ;
+   writeln(pStr^);
+
+end;