Удаление k-uj столбца матрицы(pascal)

[Flashmob]

Доброго времени суток.
Задание следующее: Матрица расположена в одномерном массиве по строкам. Удалить k-ый столбец матрицы из одномерного массива. результат напечаталь по строкам.
Задачу решил следующим образом, предварительно переведя одномерный массив в матрицу:

Program delete;
Const 
N=
M= 
Var b:array[1..n,1..m] of real;
x:array[1..(m*n)]of real;

Begin
For i:=1 to (m*n) do
Read  X(i);
For i:=1 to n do
For j:=1 to m do
B[i,j]:=x[(i-1)*m+j]; {пересылка элементов одномерного массива в матрицу}
Read(k);
m:=m-1;
For i:=1 to n do
For j:=k to m do begin
B[i,j]:=B[I,j+1]
Write(B[i,j]:7:2);
End;
End.

Проблема в том, что преподователя данный метод не устроил и необходимо решить задачу без переведения одномерного массива в двумерный.

[p51x]

преподователя данный метод не устроил и необходимо решить задачу без переведения одномерного массива в двумерный.

И правильно.. на фик лишние телодвижения. Наводящий вопрос: на каких местах при таком хранении будут стоять элементы 6-го столбца?

[Flashmob]

Вроде разобрался, спасибо.