title: how to add new column array in delphi
body: <p>I want to add some columns after the last one in a matrix of size 10X10. I have wrote the code like below :</p>
  
  <pre><code> for i:=1 to N
        do
      begin
        for j:=1 to N  do
          if j = N then
          begin
           if fileexists('d:\A\'+'img'+inttostr(I)+' '+'0'+'.bmp') then
  
            Write(f,input^[i]^[j],' ','0')
          end
            else
             Write(f,input^[i]^[j],' ','1');
  </code></pre>
  
  <p>But this code adds columns between other columns. Can anyone solve this? </p>