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

[Amalia]

Кто-нибудь, пожалуйста, напишите код (Delphi 7) Матрицу я задала..
А ещё в этой матрице нужно вычеркнуть строку и столбец на пересечении которого находится максимальный элемент.. [уже столько времени убила, не могу понять как этот код правильно записать((((]... только отвечайте быстрее.. заранее очень благодарна

[Amalia]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Edit1: TEdit;
Button2: TButton;
Label1: TLabel;
Button1: TButton;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

Type TMatr=array [1..50] of array [1..50] of real;
var matr:TMatr;
n,m:integer;

implementation

{$R *.dfm}
//Ââîä ìàòðèöû
Procedure Vvod(var Matr:TMatr; n,m:integer);
var i,j:integer;
begin
Randomize;
for i:=1 to n do
for j:=1 to n do
Matr[i,j]:=Int(random*40)-20;
end;

//âûâîä ìàòðèöû íà ýêðàí
Procedure Vivod(var Matr:TMatr;n,m:integer;StringGrid1: TstringGrid);
var i,j:integer;
begin
for i:= 0 to n-1 do
for j:=0 to m-1 do
StringGrid1.Cells[j,i]:=FloatToStr(Matr[i,j]);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.RowCount := strtoint(edit1.text);
StringGrid1.ColCount := strtoint(edit1.text);
n:= strtoint(edit1.text);
m:= strtoint(edit1.text);
Vvod(Matr,n,m);
Vivod(Matr,n,m,StringGrid1);
end;
end.

[Google2010]

procedure  delmax(var matr :Tmatr;var n1,m1:integer);
var i,j:integer;
im,jm:integer;
begin
im:=1;
jm:=1;
for i:=1 to n1 do
for j:=1 to m1 do
if matr[i,j]>matr[im,jm] then begin im:=i;jm:=j;end;
n1:=n1-1;
m1:=m1-1;
for i:=im to n1 do
for j:=im to m1 do
matr[i,j]:=matr[i+1,j+1];
end;

ну и

procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.RowCount := strtoint(edit1.text);
StringGrid1.ColCount := strtoint(edit1.text);
n:= strtoint(edit1.text);
m:= strtoint(edit1.text);
Vvod(Matr,n,m);
Vivod(Matr,n,m,StringGrid1);
delmax(Matr,n,m);
stringgrid2.rowcount:=n;
stringgrid2.colcount:=m;
Vivod(Matr,n,m,StringGrid2);
end;