помогите удалить строку и столбец в Delphi

[ЛесенОК]

В данной действительной квадратной матрице порядка N найти наименьший по модулю элемент. Получить квадратную матрицу порядка N-1 путем выбрасывания из исходной матрицы строки и столбца, на пересечении которых расположен элемент с найденным значением. Объясните пожалуйста как удаляются строки и столбцы из массива?

[Sazary]

Объясните пожалуйста как удаляются строки и столбцы из массива?

ЛесенОК А чем вас не устроил мой ответ в "Свободном общении"?
http://programmersforum.ru/showthread.php?t=37418
Я же объяснил, что нужно сдвигать остальные строки и столбцы вверх и влево на 1 позицию.

[ЛесенОК]

у меня удаляется либо последние строка и столбец, либо первые, а не те которые находятся на пересечении минимального элемента

[Sazary]

ЛесенОК Так значит уже сами что-то сделали? А почему не выложили код? Поискали бы ошибки..

В общем, вот.. На форму киньте Memo и две кнопки.
Первая генерирует матрицу и пишет в Memo1. Вторая ищет минимальный элемент и удаляет строку со столбцом.

unit lisenok1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const N=5;
var
matr : array[1..N,1..N] of integer;
i,j : integer;


procedure TForm1.Button1Click(Sender: TObject);
var i,j : integer;
begin
randomize;
for i:=1 to N do
  begin
  for j:=1 to N do
    begin
    matr[i,j] := random(50)+11;
    Memo1.Text := Memo1.Text + IntToStr(matr[i,j])+ '  ';
    end;
    Memo1.Lines.Add('');
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i,j,mini,minj : integer;
begin
 mini := 1;
 minj := 1;
 for i:=1 to N do
   for j:=1 to N do
    if abs(matr[i,j])<abs(matr[mini,minj]) then
      begin
      mini := i;
      minj := j;
      end;
 {-----}
 for i:=mini to N-1 do
   for j:=1 to N do
    matr[i,j] := matr[i+1,j];
 for j:=minj to N-1 do
   for i:=1 to N-1 do
    matr[i,j] := matr[i,j+1];
 Memo1.Clear;
 for i:=1 to N-1 do
  begin
  for j:=1 to N-1 do
    Memo1.Text := Memo1.Text + IntToStr(matr[i,j]) + ' ';
  Memo1.Lines.Add('');  
  end;

end;

end.

[ЛесенОК]

Спасибо большое!!! Все работает, вообще супер!!!