Двумерный массив на Delphi

[КРОШка]

Помогите пожалуйста с задачей. Заранее спасибо.

Будем называть соседями элемента a_ij некоторой матрицы такие элементы этой матрицы, соответствующие индексы которых отличаются от i и j не более чем на единицу. Для данной квадратной матрицы [a_ij] (i = 1, …, n) найти матрицу [b_ij] (i = 1, …, n) из нулей и единиц, элемент которой b_ij = 1, когда все соседи a_ij меньше самого a_ij, в противном b_ij случае = 0.

[ОДИНОЧЕСТВО В СЕТИ]

type matrix=array[1..100,1..100] of Integer;
var a,b:matrix;
    x,y,n:Integer;
procedure  ahez(i,j:integer);
var f:Boolean;
begin
 f:=True;
if a[i,j]<a[i-1,j-1] then f:=false;
if a[i,j]<a[i,j-1] then f:=false;
if a[i,j]<a[i-1,j] then f:=false;
if a[i,j]<a[i+1,j+1] then f:=false;
if a[i,j]<a[i,j+1] then f:=false;
if a[i,j]<a[i+1,j] then f:=false;
if f then b[i,j]:=1
else b[i,j]:=0;
end;
begin
  { TODO -oUser -cConsole Main : Insert code here }
randomize;
readln(n);
for x:=1 to n do
for y:=1 to n do
a[x,y]:=Random(24)+1;
for x:=1 to n do begin
for y:=1 to n do
write(a[x,y]:4);
writeln;end;
for x:=1 to n do
for y:=1 to n do
ahez(x,y);
writeln('---------------');
 for x:=1 to n do begin
for y:=1 to n do
write(b[x,y]:4);
writeln;end;
readln;

end.

[КРОШка]

Мне бы через StringGrid.
Я сама написала код,но не уверена.

var
Form1: TForm1;
a:array[0..100,0..100] of integer;
b:array[0..100,0..100] of integer;
i,j,n:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
// Чистка StringGrid
procedure grid_clean(g:TStringGrid);
var i,j:integer;
begin
for i:=0 to g.ColCount-1 do
for j:=0 to g.RowCount-1 do
g.Cells[i,j]:='';
end;
// Автоматическое заполнение массива
begin
n:=5;
for i:=0 to n do
begin
for j:=0 to n do
begin
a[i,j]:=random(10)-5;
StringGrid1.Cells[i,j]:=inttostr(a[i,j]);
end;
end;
begin
for i:=0 to n do
begin
for j:=0 to n do
begin
if i-j<=1
then a[i,j]:=b[i,j];
begin
if a[i,j]>b[i,j]
then b[i,j]:=1
else b[i,j]:=0;
StringGrid3.Cells[i,j]:=inttostr(b[i,j]);
end;
end;
end;
end;
end;

end.