матрица в файле, m-ный столбец Опции

[Mapина]

В итоговом файле получаю не m-ный столбец. Пожалуйста, исправте!
(Есть файл с матрицей, но загрузить его, к сожелению, не могу.)

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

Код

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, windows;

type
  Tmatr = array[1..10, 1..10] of integer;
var
  A : Tmatr;

  procedure Input(var A : Tmatr);
  var
    i, j : integer;
    filename : string;
    f : text;
  begin
    Write('Введи имя исходного файла : ');
    readln(filename);
    AssignFile(f, filename);
    reset(f);
    for i := 1 to 10 do
    begin
      for j := 1 to 10 do
        read(f, a[i,j]);
      readln(f);
    end;
    closefile(f);
  end;

  procedure Output(A : Tmatr);
  var
    i, m : integer;
    filename : string;
    f : text;
  begin
    write('Столбец для копирования : ');
    readln(m);
    Write('Введи имя результирующего файла : ');
    readln(filename);
    AssignFile(f, filename);
    rewrite(f);
    for i := 1 to 10 do
      writeln(f, a[i,m]);
    closefile(f);
  end;

begin
  SetConsoleCp(1251);
  SetConsoleOutputCP(1251);
  Input(a);
  Output(a);
  readln;
end.

Сообщение отредактировано: Mapина - 28.06.2007 13:16

[Mapина]

я имелла в виду:
как будет выглядить процедура Вывода, если необходимо чтоб выписывался m-ый столбец так, допустим доходило до A[i,m] и переходило на i:=i+1 с задействованием вот этого, и наверное ещё одной новой переменной, допустим t

for i := 1 to 10 do
    begin
      for j := 1 to m do
        read(f, t);
      writeln(f, t);
      readln(f);
    end;

приблизительно что-то такое должно быть!

Добавлено через 17 мин.
то есть мне было сказано так, что мол чтобы проходило не всю матрицу, а так допустим m=2, шло A[1,1], А[1,2] и так как m=2, то не смотрело A[1,3], а переходило на A[2,1]....