Введите с клавиатуры построчно в двумерный массив числовую матрицу размером 4x4.

program test;
var
a:array[1..4,1..4] of integer;
i,j,x,n:integer;
f:text;
begin
assign(f,file.txt);
rewrite(f); Создаем файл для записи
writeln(Размерность матрицы:);
read(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
nbsp;readln(a[i,j]);Вручную наполняем матрицу
end;
end;
nbsp;writeln(Начальная матрица:);
for i:=1 to n do
begin
for j:=1 to n do
begin
nbsp;write(a[i,j]:3);Выводим двумерную матрицу
end;
writeln;
end;
writeln;
writeln(Развёрнутая матрица по столбцам:);
for j:=1 to n do
begin nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Получаем одномерную матрицу выводя по столбцам, записываем ее в файл
for i:=1 to n do
begin
write(a[i,j]:3);
write(f,a[i,j]:3);
end;
nbsp;end;
writeln;
writeln(Записываем матрицу в файл file.txt!);
nbsp;close(f);
end.