Преобразование двумерных массивов: обмен, удаление, вставка строк и столбцов

5
1
2
3
9
4
6
4
7
1
8
5
6
0
2
9
9
Задание: поменяйте местами 2 и 4 столбец массива
Нужна дополнительная переменная, которая позволит произвести обмен значениями элементов соответствующих столбцов
Не забываем вывести преобразованный массив
8
2
4
2
1
5
6

for i:=1 to n do
begin
for j:=1 to n do
с:=a[i,k1]
a[i,k1]:=a[i,k2];
a[i,k2]:=c;
end;
end;
*k1,k2 – номера столбцов, которые нужно поменять
Можно ли обойтись одним циклом?

5
1
2
3
9
4
6
4
7
1
8
5
6
0
2
9
1
4
5
6
9
0
2
0
9
0
0
0
Задание: удалите 2 строку массива
Начиная со 2 строки заменяем каждый элемент на соответствующий элемент следующей строки
Выводим преобразованный массив до n-1 сроки

for i:=k to n do
for j:=1 to n do
a[i,j]:=a[i+1,j];
for i:=1 to n-1 do begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
*k – номер строки

5
1
2
3
9
4
6
4
7
1
8
5
6
0
2
3
4
0
7
8
4
9
0
0
0
Задание: удалите 2 столбец массива
Начиная со 2 столбца заменяем каждый элемент на соответствующий элемент следующего столбца
Выводим преобразованный массив до n-1 столбца
5
0
2

for i:=1 to n do
for j:=k to n do
a[i,j]:=a[i,j+1];
for i:=1 to n do begin
for j:=1 to n-1 do
write(a[i,j]:4);
writeln;
end;
*k – номер столбца