Динамический массив символов. Delphi 7 - вопрос №725203

Дан динамический массив символов. Вставить после каждого символа символ ‘/’.
(Просьба, обязательные компоненты edit1 (введите эл массива), StringGrid1 StringGrid2, BitBtn1(Вывод исходного массива) BitBtn2(вывод результата) )

вот пример:

Дан динамический массив целых чисел. Вставить после каждого элемента массива нулевой элемент. 

unit Unit2;

interface

 uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  StdCtrls, Grids, Buttons;

type

  TForm2 = class(TForm)

    Label1: TLabel;

    Edit1: TEdit;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    StringGrid1: TStringGrid;

    StringGrid2:TStringGrid;

    Memo1: TMemo;

    BitBtn3: TBitBtn;

    procedure Edit1KeyPress(Sender: TObject; var Key:Char);

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 var

  Form2: TForm2;

implementation 

{$R *.DFM}

 var

   a:array of integer;

procedure TForm2.FormCreate(Sender: TObject);

begin

   setlength(a,0);

end;

procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

   if key=#13 then

                 begin

                    setlength(a,length(a)+1);

                    a[length(a)-1]:=strtoint(edit1.text);

                    edit1.text:='';

                 end;

end;

procedure TForm2.BitBtn1Click(Sender: TObject);

  var

    i:integer;

begin

   stringgrid1.ColCount:=length(a);

   for i:=0 to length(a) do

    stringgrid1.Cells[i,0]:=inttostr(a[i]);

end;

procedure TForm2.BitBtn2Click(Sender: TObject);

  var

     n,i,k:integer;

begin

   n:=length(a)-1;

   setlength(a,length(a)+length(a)-1);

   k:=length(a)-1;

   for i:=n downto 1 do

    begin

       a[k]:=a[i];

       a[i]:=0;

       k:=k-2;

    end;

    stringgrid2.ColCount:=length(a);

   for i:=0 to length(a)-1 do

     stringgrid2.cells[i,0]:=inttostr(a[i]);

end;

 end.