Преобразование матриц

[wOOp]

Дана матрица размера M × N и целое число К (1≤К≤ N). После столбца матрицы с номером К вставить столбец из единиц.

Помогите пжл с данной задачей
(pascal)

[BDA]

Думаю, разберетесь:

uses crt;
var
n,m,k,i,j:integer;
a:array[1..100,1..100] of integer;
BEGIN
write('Vvedite n, m, k:');
readln(n,m,k);
for i:=1 to n do
	for j:=1 to m do
	begin
		write('Vvedite a[',i,',',j,']=');
		readln(a[i,j]);
	end;
writeln('Source matrix');
for i:=1 to n do
begin
	for j:=1 to m do
		write(a[i,j]:4);
	writeln;
end;	
for i:=m+1 downto k+2 do
	for j:=1 to n do
		a[j,i]:=a[j,i-1];
for i:=1 to n do
	a[i,k+1]:=1;
writeln;
writeln('Created matrix');
for i:=1 to n do
begin
	for j:=1 to m+1 do
		write(a[i,j]:4);
	writeln;
end;	
end.

(у меня получились m и n наоборот по привычке, но пока будете менять их местами, заодно разберетесь )

[wOOp]

благодарствую