Delphi Двумерный массив

[forumu]

Здравствуйте. Как решить такую задачу?

Дан двумерный массив размером n*m, заполненный случайным образом.

1. Заменить отрицательный элемент каждого столбца нулем

2. Вставить после каждого столбца, содержащего максимальный по модулю элемент, строку из нулей.

3. Удалить из него каждую строку, содержащую элемент, кратный трем

4. Поменять местами первый и последний столбцы.

[Simply-Art]

Вы уверены в правильности условий? Может я не понимаю, но как можно после столбца вставить строку?

[Vedrus]

А сами до чего додумались?

[north]

вот основной код:

program mn;

{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  a:array[1..10,1..10] of integer;
  m,n:integer;

{Вставлять сюда}
 
procedure vvod;
var i,j:integer;
begin
  randomize;
  read(n,m);
  for i:=1 to n do
  for j:=1 to m do    a[i,j]:=random(71)-30;
  end;

procedure vivod;
var i,j:integer;
begin
  assign(output,'output.txt');
  rewrite(output);
  for i:=1 to n do begin
      for j:=1 to m do write(a[i,j],' ');
      writeln
      end;
  close(output);
  end; 
   
begin
vvod;
{pr1}
{pr3}
{pr4}
vivod;
end.

1)

procedure pr1;
var i,j:integer;
begin
  for i:=1 to n do
  for j:=1 to m do if a[i,j]<0 then a[i,j]:=0;
  end;

3)

function poisk(nn:integer):boolean;
var d:longint;
begin
  poisk:=false;
  for d:=1 to m do if a[nn,d] mod 3=0 then begin
      poisk:=true;
      break;
      end;
  end;

procedure pr3;
var i,j1,j2:integer;
begin
  i:=1;
  while i <= n do begin
      if poisk(i)=true then begin

          for j1:=i to n do
          for j2:=1 to m do a[j1,j2]:=a[j1+1,j2];
          dec(n);
          end
      else inc(i);
  end;
end;

4)

procedure pr4;
var
i,j,x:integer;
begin
  for i:=1 to m do begin
      x:=a[1,i];
      a[1,i]:=a[n,i];
      a[n,i]:=x;
      end;
  end;