помогите с двумерным массивом

[nikita33321]

В программе необходимо использовать описание класса, обязательно включив в него помимо полей и методов свойства property со своими соответствующими методами записи и чтения значения свойства. В работе обязательно должны быть использованы:
• создание потомка для основного класса,
• методы «конструктор» и «деструктор» для каждого класса,
• виртуальные методы в классах,
• примеры методов с использованием перегрузки и переопределения.

т.к. не дружу с динамической памятью

Описать тип-объект MATRIX (матрица произвольной размерности M*N) и его методы: ввод матрицы; вывод матрицы; удаление строк матрицы, содержащих максимальный элемент. Описать тип и методы его потомка MATR (методы: удаление столбцов матрицы, где есть хотя бы одно число Фибоначчи; удаление строк матрицы, являющихся перестановкой чисел от 1 до М ).

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button3Click(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

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


implementation

{$R *.dfm}
procedure sozd (var Matr:TMatr; n,m:integer);
    var i,j:integer;
begin
  for i:=1  to n do
    for j:=1 to m do
  // как тут передать значение stringgrid  в матрицу?
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 close;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
if (Acol=0) and (StringGrid1.Cells[0,Arow]='') and (Arow>0) then
    StringGrid1.Cells[0,Arow]:=IntToStr(Arow);
if (Acol=0) and (StringGrid1.Cells[Arow,0]='') and (Arow>0) then
    StringGrid1.Cells[Arow,0]:=IntToStr(Arow);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

    n:= strtoint(edit1.text);
    m:= strtoint(edit2.text);
    StringGrid1.RowCount := n+1;
    StringGrid1.ColCount  := m+1;
    sozd(matr,n,m);
end;

end.

я думаю в потомок можо будет передать max и из него вывести но как?

function findmax (var Matr: TMatr):integer;
var
i,j,max:integer;
begin
max := Matr[1,1];
for i:=1 to n do
 for j:=1 to m do
  if max < matr[i,j] then
  max:= matr[i,j];
  findmax:=max;
end;

(это правильный алгоритм?)