Удаление столбца в матрице

[AlexCODER23]

Здравствуйте, нужно написать программу, которая будет удалять столбцы с максимальным элементом в матрице MxN

Помогите разобраться, что я делаю не так =\
То удаляются левые столбцы, то не удаляются нужные....

program pr;
uses crt;
var
a:array [1..10,1..10] of integer;
maxI,maxJ,i,j,M,N:integer;

procedure DelStolbec(var p:integer);
var
i,j:integer;
begin
writeln('DelProc ',p);
for i:=1 to n do
    for j:=p to m-1 do
        a[i,j]:=a[i,j+1];
end;

begin
clrscr;
writeln('Enter N');
readln(N);
writeln('Enter M');
readln(M);
maxI:=1;
maxJ:=1;
randomize;
for i:=1 to N do
    begin
         for j:=1 to M do
             begin
                  a[i][j]:=random(10);
                  write(a[i][j], ' ');
             end;
    writeln;
    end;

for i:=1 to N do
    for j:=1 to M do
        if a[i][j]>a[maxI][maxJ] then
           begin
           maxI:=i;
           maxj:=j;
           end;

writeln('Max elem = ',a[maxi][maxj],' i=',maxi,' j=', maxj);

i:=1;
while i<=n do
      begin
      j:=1;
      while j<=m do
            begin
            if a[i,j]=a[maxI,maxJ] then
               begin
               writeln('deleting ',j,' stolbec v ',i,' stroke');
               delstolbec(j);
               Dec(m);
               j:=1;
               end
               else inc(j);
            end;
      inc(i);
      end;
writeln('N=',n,' M=',m);
readln;
for i:=1 to N do
    begin
    for j:=1 to M do
        write(a[i][j],' ');
    writeln;
    end;
readln;
end.

Заранее спасибо

[AlexCODER23]

тему ап
просто через несколько часов уже нести) ну помогите заблудшему получить автомат))

[Косюра]

уже поздно?((