(* Chapter 12 - Programming exercise 1 *)
program Three_friends;

type First_Name = string[10];

var Friend1 : ^First_Name;
    Friend2 : ^First_Name;
    Sister  : ^First_Name;

begin
   New(Friend1);
   New(Friend2);
   New(Sister);

   Friend1^ := 'Dan';
   Friend2^ := 'Teresa';
   Sister^  := 'Sandy';

   Write('My friends are, ',Friend1^,' and ',Friend2^);
   Writeln(', and my sister is ',Sister^);
end.




{ Result of execution

My friends are, Dan and Teresa, and my sister is Sandy

}