Процедура+Массив\удаление к-й строки, задача Опции

[BoB@N]

Условие задачи:
\Из данного двумерного массива удалить к-й столбец.\
Примечание:
1)"Из данного"-массив задаётся по желанию.
2)Программа дожна быть составлена с использованием процедуры или функции. (что-то типо: procedure del_line).

[Fang]

Недавно одногруппник попросил написать такую же программу. Вот исходник:

Код

uses
 crt;
var
 m,n,i,j:integer;
 a: array[1..10,1..10] of integer;
 ch:char;
{процедура вывода матрицы}
procedure MatrixOut(x,y:integer);
begin
 writeln;
 for i:=1 to x do
   begin
     for j:=1 to y do
       write(a[i,j]:8);
     writeln;
   end;
 writeln;
end;
{процедура переназначения эл-в массива}
procedure MatrixPer(temp:integer);
begin
 for i:=temp to m-1 do
 begin
   for j:=1 to n do
   begin
     a[i,j]:=a[i+1,j];
    end;
  end;
end;
{основная программа}
begin
repeat
 clrscr;
 write('Введите размер матрицы (MxN): ');
 readln(m,n);
 writeln('Введите элементы матрицы: ');
 {Вводим матрицу}
 for i:=1 to m do
   for j:= 1 to n do
     begin
       write('A[',i,' ',j,']:=');
       readln(a[i,j]);
     end;
 {проверяем равен ли какой-либо эл-т 0}
 MatrixOut(m,n);
 for i:=1 to m do
 for j:=1 to n do
   if a[i,j] = 0 then
     MatrixPer(i); {шаг 1. (см. алгоритм}

   writeln('Результат: ');
   MatrixOut(m-1,n); {шаг 2. (см. алгоритм)}
   writeln('Для выхода нажми ESC...');
 ch:=readkey;
until ch=#27;
end.