Здравствуйте, rail!

[code lang=pascal]const
n=4;
m=5;
var
a:array[1..n,1..m]of integer;
i,j,k1,k2:integer;
begin
for i:=1 to n do
for j:=1 to m do
begin
repeat
write('enter a[',i,',',j,']:=');
readln(a[i,j])
until a[i,j]in[10..99]
end;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:3);
writeln;
end;
repeat
write('enter k1:');
readln(k1);
until k1 in[1..m];
repeat
write('enter k2:');
readln(k2);
until(k2 in[1..m])and(k1<>k2);
for i:=1 to n do
begin
j:=a[i,k1];
a[i,k1]:=a[i,k2];
a[i,k2]:=j;
end;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:3);
writeln;
end;
end.[/code]
Удачи!

Здравствуйте, rail!

[code lang=pascal]{Дан массив, состоящий из N x M элементов,
значения которого вводится с клавиатуры.
Поменять местами k1 и k2 столбцы в матрице.}
program Obmen_Stolbcov;

const
N = 3; // Число строк
M = 6;// Число столбцов

var
a: array[1..N, 1..M] of integer;// Опишем наш массив а размером N х M
k, k1, k2: integer;
i, j: integer;

begin
writeln('Вводим числа в матрицу размером ', N, ' X ', M);
for i := 1 to N do
for j := 1 to M do
read(a[i, j]);
// Вывод исходной матрицы
for i := 1 to N do
begin
for j := 1 to M do
write(a[i, j]:3);
writeln;
end;
write('Какие столбцы поменять местами: ');
readln(k1, k2);
// Перестановка столбцов
for i := 1 to N do
begin
k := a[i, k1];
a[i, k1] := a[i, k2];
a[i, k2] := k;
end;
// Вывод полученной матрицы
for i := 1 to N do
begin
for j := 1 to M do
write(a[i, j]:3);
writeln;
end;
end.[/code]