Есть таблица в текстовом файле, через паскаль добавить в таблицу новый столбец на k место, вывести в новый файл

const
  nmax = 24;
 
type
  task = record
    int: integer;
    s: string;
    ar: array[1..nmax, 1..nmax] of string;
  end;
 
var
  f: text;
  matrix: task;
  n, nn, numberst: task;
  answer, academic: task;
  i, j, k: integer;
  dob_predmet:task;
  a:array[1..100] of string;
 
 
begin
  assign(f, 'C:\Users\Admin\Desktop\52.txt');
  n.int := 14;
  nn.int := 15;
  
  reset(f);
  read(f, matrix.s);
  
  for i := 1 to 24 do
    for j := 1 to n.int do 
      readln(f, matrix.ar[i, j]); 
  readln(f);
  close(f);
  
  writeln('Нужно ли добавить количество предметов? Если это так введите "+"');
  readln(answer.s);
  if answer.s = '+' then
  begin
    writeln('Введите на каком ряду должен быть этот предмет');
    readln(numberst.int);
    
    k := 0;
    assign(f, 'C:\Users\Admin\Desktop\аыа.txt');
    reset(f);
    readln(f, dob_predmet.s);
    while not eof(f) do
    begin
    inc(k);                                             // чтение добавочного предмета и его оценок
    readln(f, a[k]);
    end;
   for k := 1 to 24 do
   writeln(a[k]);
    
    for i := 1 to 24 do
      for j := n.int downto numberst.int + 2 do
        matrix.ar[i, j + 1] := matrix.ar[i, j];
    inc(n.int);
  end;
  
  for i := 1 to 24 do
  begin
  matrix.ar[i, numberst.int+2] := a[i];
    //matrix.ar[i, numberst.int + 2] :=  IntToStr(random(5));
  end;
  //matrix.ar[1, numberst.int + 1] := academic.s; 
  
  assign(f, 'C:\Users\Admin\Desktop\53.txt');
  rewrite(f);
  
  for i := 1 to 24 do
  begin
    for j := 1 to nn.int do
    begin
      write(matrix.ar[i, j]); //вывод матрицы
      writeln(f, matrix.ar[i, j]);
    end;
    writeln(f);
    writeln;
  end;
  
  close(f);
  
end.

close(f);
  
  for var jj := 1 to n.int do 
      WriteLn(matrix.ar[1, jj]); 
  ReadLn;

## 
var k := ReadlnInteger('k =')*11+13;
var b := ReadAllLines('аыа.txt ')
  .ConvertAll((t,i)-> t.Length > 0 ?  i = 1 ? t.PadLeft(10).PadRight(11) :t.Trim.PadLeft(11) : t);
WriteAllLines('52.txt', 
  ReadAllLines('52.txt ').ConvertAll((t,i)->  t.Length >= k ? t.Insert( (i=1 ? k-6 : k), b[i]) : t))