Удалить столбец двумерного массива вещественных чисел

[dolbi]

Удалить столбец двумерного массива вещественных чисел, в котором находится МАХ элемент этого массива.

[puporev]

Списывай уж, все равно не решишь. Хоть бы начало написал, а то вообще ничего делать не хотите.

uses crt;
var a:array[1..20,1..20]of integer;
    n,m,i,j,max,jmax:integer;
begin
clrscr;
randomize;
write('n=');readln(n);
write('m=');readln(m);
writeln('Ishodnaia matrica:');
for i:=1 to n do
   begin
     for j:=1 to m do
        begin
          a[i,j]:=random(20);
          write(a[i,j]:4);
        end;
     writeln;
   end;
readln;
max:=a[1,1];jmax:=1;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>max then
    begin
      max:=a[i,j];//ищем максимальный элемент
      jmax:=j;     //и номер его столбца
    end;
writeln('max element=',max,' v stlbce ',jmax);
writeln;
writeln('Rezultat:');
for j:=jmax to m-1 do   //от столбца с max до предпосленего
for i:=1 to n do         //столбца присваиваем всем элементам строк
  begin                  // значения следующих элементов, удаляем столбец
    a[i,j]:=a[i,j+1];
  end;
for i:=1 to n do
   begin
    for j:=1 to m-1 do   //выводим матрицу на один столбец короче
    write(a[i,j]:4);
    writeln;
  end;
readln
end.

[dolbi]

Огромное спасибо! Действительно самому мне не решить ее никогда! Благодарен!!!!