Транспонировать таблицу и записать данные в шаблон

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm2 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
procedure TForm2.Button1Click(Sender: TObject);
 var
  arr: array [0..8,0..57] of integer;
  arr2: array [0..57,0..8] of integer;
  i, j, n, m: integer;
  F1,  F2, F3: textfile;
  begin
 n := 8;
 m := 57;
 AssignFile(F3,'C:\Users\tanya\Desktop\proga\1_1.txt');
 rewrite(F3);
 Append(F3);
 AssignFile(F1,'C:\Users\tanya\Desktop\proga\1.txt');
 reset (F1);
 i:=0;
 while not EOF(F1) do
  begin
   j:=0;
   while not EOLN(F1) do
    begin
     read(F1, arr[i,j]);
     inc(j);
    end;
    read(F1, arr[i,j]);
    inc(i);
   end;
    for i:=0 to n-1 do
    for j:=0 to m-1 do
     //begin
     //arr2[i,j]:=arr[j,i];
     //end;
     //for i := 0 to n-1 do
     // for j := 0 to m-1 do
     //  begin
      //  inc(q);
      //  a[q] := arr2[i,j];
        //b[q] := arr2[i,j];
      // for i := 0 to n do
      // write(F3, arr[i,j], '  ');
       //end;
       memo1.Lines.text := (memo1.Lines.Text + IntToStr(arr[i,j]) + '   ');
       //Memo1.Lines.SaveToFile();
    closefile(F1);
    closefile(F3);
 end;
 
 
end.

While not EOF(f1In) do 
Begin 
 Read(f1In, Flag);
 J:=6;
 M:=1;
 C:=7;
 For I:=1 to 29 do
 Begin 
  A[m]:=strtoint(trim(copy(str(j,c))));
  j:=j+8;
  Inc(m);
 End;

//Сохраняем в файле с новым именем
L.SaveToFile(NewName);

//Сохраняем файл с числами
TMP.Clear;
for i := 0 to c - 1 do
  begin
    s := '';
    for j := 0 to r - 1 do
      s := s + IntToStr(B[i, j]) + #9;
    TMP.Add(s);
  end;
TMP.SaveToFile('digits.txt');
//*************************************