(* Teresa Tong [30] F.4AS  March, 2002 *)
(* Read the input name then output it in a separated form *)

program out_characters;
uses wincrt;
var name:string;
    i:integer;

begin
  writeln('Input your full name');
  readln(name);
  writeln('The separation of your name is: ');
  for i:=1 to length(name) do
    writeln(name[i])
end.

=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+==+=+=+=+=+=+=+=+=+=+=
+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+==+=+=+=+=+=+=+=+=+=+=+
Output:

1) Input your full name
   Chan Tai Man
   The separation of your name is:
   C
   h
   a
   n

   T
   a
   i

   M
   a
   n

2) Input your full name
   Wong Mei Ling
   the sparation of your name is:
   W
   o
   n
   g

   M
   e
   i

   L
   i
   n
   g