这样的数据转换，如何实现？

Question

实在想不出如何实现这算法了。
原始数据为一行，如下：
A
B
C
想转换为一列，如下：
A
A
A
B
B
B
C
C
C
不知如何编程实现。

Answer 1

你的意思是不是：var
  s,t:string;
  i,j:integer;
begin
  s:='ABC';
  t:='';
  for i:=1 to length(s) do
    for j:=1 to 3 do 
      t:=t+s[i]+chr(13)+chr(10);
  showmessge(t);
end;

Answer 2

对不起，不是这样的意思。而是将EXCEL中原始数据为一列的数据，如下： 
A 
B 
C 
想转换为仍为一列，但格式如下： 
A 
A 
A 
B 
B 
B 
C 
C 
C