Delphi массивы

[world12_tk]

Доброо времени суток! Не могу отладить программу. Не могли бы мне помочь? Задан двумерный массив nxm. Нужно определить количество особых элементов в матрице,считая элемент “особым”, если в его строке слева от него находятся элементы, меньшие его, а справа – большие.
Заранее спасибо.
Вот исходный код:

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    StringGrid1: TStringGrid;
    Edit2: TEdit;
    column: TButton;
    Memo1: TMemo;
    calculate: TButton;
    procedure EditKeyPress(Sender: TObject; var Key: Char);
    procedure columnClick(Sender: TObject);
    procedure calculateClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  count=10;
type
  massiv=array[1..count,1..count]of extended;
var
  Form2: TForm2;
  matrix:massiv;
  line:integer;
   colum:integer;

implementation

{$R *.dfm}

procedure TForm2.calculateClick(Sender: TObject);
var
  i,j,temp:integer;
begin
  temp:=0;
  for i:=1 to line do
    for j:=1 to colum do
      matrix[i,j]:=StrToFloat(StringGrid1.Cells[i,j]);
  for i:=1 to line do
    for j:=1 to colum do
      if (matrix[i,j]<matrix[i-1,j]) and(matrix[i,j]>matrix[i+1,j]) then
        temp:=temp+1;
  Memo1.Lines.Add(' количество особых элементов  = '+FloatToStrF(temp,fffixed,8,3));

end;

procedure TForm2.columnClick(Sender: TObject);
var
  i,j:integer;
begin
  line:=StrToInt(Edit1.Text);
  colum:=StrToInt(Edit2.Text);
   {Задание числа строк и столбцов в таблицах}
   StringGrid1.RowCount:=line+1;
   StringGrid1.ColCount:=colum+1;
  {Заполнение верхнего и левого столбцов поясняющими подписями}
   for i:=1 to line do
     for j:=1 to colum do
     begin
    StringGrid1.Cells[i,0]:=' i= '+IntToStr(i);
    StringGrid1.Cells[0,j]:=' j= '+IntToStr(j);
    end;
end;

procedure TForm2.EditKeyPress(Sender: TObject; var Key: Char);
begin
  if not(key in ['0'..'9']) then key:=#0;
end;

procedure TForm2.FormCreate(Sender: TObject);
var
  i,j:integer;
begin
Edit1.Text:=FloatToStr(line);
Edit2.Text:=FloatToStr(colum);

 {Задание числа строк и столбцов в таблицах}
   StringGrid1.ColCount:=colum+1;
   StringGrid1.RowCount:=line+1;


end;

end.

[XTenS]

Странный вопрос всё кажись верно