pascal字符串类型

program arrtest;

{$APPTYPE CONSOLE}
var
  name: string;
  i: Integer;

begin
  {读入一个字符串并输出,下标从1开始}
  Readln(name);
  {Ord(name[0]) free pascal的写法,字符串第一个元素存放其长度}
  {length(name) object pascal的写法,需要计算其长度}
  for i := 1 to  length(name) do
    Writeln(name[i]);

  readln;
end.