Работа с матрицами

[wOOp]

Всем привет
Опишите пжл алгоритм работы программы если не трудно =)

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

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.

[wOOp]

Народ выручайте =)

[Naive]

а вы на кого учитесь?

[DrStrangeLove]

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);//зачитываем 3 вход. параметра
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];// здесь обрабатывая обознач-ную выше правую часть //матрицы- переносим значения элементов чуть правее, делая сдвиг на 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.

P.S.: В тех местах, где я поставил ** - мне кажется, что writeln нужно писать вне внутреннего цикла, но во внешнем, чтобы каждая новая строка матрицы начиналась с новой строки..)