ввод размерности массива

[kolian87]

Задача работает только не знаю как сделать что бы можно было бы организовать ввод размерности массива с клавиатуры
И если можно то как ещё сделать что бы выводило то число которое подходит по условию
И писало к примеру -7<2<3
Задана матрица размером NxM. Определить к - количество "особых" элементов матрицы, считая элемент "особым", если в его строке слева от него находятся элементы, меньшие его, а справа - большие.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    StringGrid1: TStringGrid;
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  const n=4;m=3;
var
  Form1: TForm1;
   a: array [1..n,1..m] of integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
BEGIN
randomize;
   StringGrid1.RowCount:=n;
StringGrid1.ColCount:=m;
 
for i:=0 to n-1 do
for j:=0 to m-1 do
 begin
  a[i+1,j+1]:=-10+random(21);
  StringGrid1.Cells[j,i]:=IntToStr(a[i+1,j+1])
 end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var k,i,j:integer;
begin
k := 0;
For i := 1 To N Do
For j := 2 To M - 1 Do
  Begin
    If (A[i, j] >A [i, j-1]) And (A[i, j] < A[i, j + 1]) Then Inc(k);
  End;
 
Label3.caption := IntToStr(k);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
     with StringGrid1 do
 begin
  fixedCols:=0;
  fixedRows:=0;
  defaultColwidth:=35;
  scrollBars:=ssBoth
 end;
end;
end.