Массив: как заполнить этот массив, и как реализовать поиск значений по столбику и строке?

// i - строка, j - столбец
for i := 1 to 5 do begin
// if a[i,j] = .. then ...
for j := 1 to 6 do begin
// if a[i,j] = .. then ...
end;
end;
//или наоборот, все зависит от поставленной задачи
for j := 1 to 6 do begin
// if a[i,j] = .. then ...
for i := 1 to 5 do begin
// if a[i,j] = .. then ...
end;
end

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure qgetnumbers(l:char;n:extended;var a,b:integer);
var
i,j:integer;
f:boolean;
const
m:array[1..5,1..6]of integer=
((32,45,55,67,74,84),
(39,50,61,68,83,85),
(55,66,80,92,98,103),
(72,80,91,99,103,108),
(32,47,57,69,79,90));
c:array[1..6]of extended=(0.6,0.8,1.25,2,3,5);
r:array[1..5]of char=('М','Д','Г','К','Л');
begin
f:=true;
for i:=1 to 5 do
if r[i]=l then
begin
j:=i;
f:=false;
break;
end;
if f then
begin
showmessage('Нет этой буквы в таблице!');
exit;
end;
if (n<0.6)or(n>5) then
begin
showmessage('Нет этого числа в таблице!');
exit;
end;
for i:=1 to 6 do
if c[i]=n then
begin
a:=m[j,i];
b:=0;
exit;
end
else if i<6 then
begin
if (n>c[i])and(n<c[i+1]) then
begin
a:=m[j,i];
b:=m[j,i+1];
exit;
end;
end;
a:=0;
b:=0;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
a,b:integer;
begin
qgetnumbers('Г',4.55,a,b);
caption:=inttostr(a)+' '+inttostr(b);
end;
 
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure qgetnumbers(l:char;n:extended;var a,b:integer;var a1,b1:extended);
var
i,j:integer;
f:boolean;
const
m:array[1..5,1..6]of integer=
((32,45,55,67,74,84),
(39,50,61,68,83,85),
(55,66,80,92,98,103),
(72,80,91,99,103,108),
(32,47,57,69,79,90));
c:array[1..6]of extended=(0.6,0.8,1.25,2,3,5);
r:array[1..5]of char=('М','Д','Г','К','Л');
begin
f:=true;
for i:=1 to 5 do
if r[i]=l then
begin
j:=i;
f:=false;
break;
end;
if f then
begin
showmessage('Нет этой буквы в таблице!');
exit;
end;
if (n<0.6)or(n>5) then
begin
showmessage('Нет этого числа в таблице!');
exit;
end;
for i:=1 to 6 do
if c[i]=n then
begin
a:=m[j,i];
b:=0;
a1:=c[i];
b1:=0;
exit;
end
else if i<6 then
begin
if (n>c[i])and(n<c[i+1]) then
begin
a:=m[j,i];
b:=m[j,i+1];
a1:=c[i];
b1:=c[i+1];
exit;
end;
end;
a:=0;
b:=0;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
a,b:integer;
a1,b1:extended;
begin
qgetnumbers('Г',4.55,a,b,a1,b1);
caption:=inttostr(a)+' '+inttostr(b)+' '+floattostr(a1)+' '+floattostr(b1);
end;
 
end.