Пусть матрица А целых чисел размером 10х10 записана по строкам в файле. Необходимо перенести в новый файл m-ный столбец матрицы (m задаётся вводом) — Delphi(Делфи)

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  windows;
 
const
    n=10;
var
    i, j, m, t : integer;
    filename_in, filename_out : string;
    f_in, f_out : file of integer;
begin
    Write('Исходный: ');
    readln(filename_in);
    Write('результат : ');
    readln(filename_out);
    write('столбец: ');
    readln(m);
    AssignFile(f_in, filename_in);
    reset(f_in);
    AssignFile(f_out, filename_out);
    rewrite(f_out);
    for i := 1 to n do
      begin
        seek(f_in, (i-1)*n+m-1);
          read(f_in, t);
        write(f_out, t);
      end;
    closefile(f_in);
    closefile(f_out);
end.