задача уже была решена при f:text;
а требуется чтобы f: file of integer;
Пусть матрица А целых чисел размером10х10 записана по строкам в файле. Перенесите в новый файл m ный столбец матрицы(m задаётся вводом).
Спасибо.
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
for j := 1 to m do
read(f_in );
write(f_out);
end;
closefile(f_in);
closefile(f_out);
end.