Задача на массив

[KARUSHEV]

Всем привет!
Подскажите с такой задачей есть упорядоченная таблица, значения real.
/ 1.0 1.5 2.0 2.5 3.0
1 0.5 0.8 1.1 1.4 1.5
2 0.9 1.1 2.3 3.3 4.2
3 1.4 2.9 3.2 3.4 4.0
Задача в следующем: пользователь вводит значения Х и У, например 2 и 1.5
программа должна присвоить значение Z = 1.1 (нужно осуществить поиск по первой строке и первому столбцу).

Вот то, что у меня получилось, но только на одномерный массив и с целыми числами. Сделать на многомерный и с дробными числами у меня не получается, помогите исправить код. Заранее спасибо!

procedure First;
const
  N=10;
  A:array[1..N] of integer =(1,2,3,4,5,6,7,8,9,10);
var
  i,v,left,right,middle, Y:integer;
begin
 v :=StrToInt(Form1.Edit1.Text);
  left:=1;
  right:=N;
  repeat
    middle:=left+(right-left) div 2;
    if v<A[middle] then right:=middle else left:=middle;
  until right-left<=1;
  if v=A[left] then Y:=v
    else if v=A[right] then Y:=v
      else
ShowMessage('Requested value is NOT found');
Form1.Edit2.Text := FloatToStr(Y);
end;

procedure TForm1.Button1Click(Sender: TObject);

begin

First

end;

[KARUSHEV]

Подскажите, может у кого есть аналогичный пример поиска для упорядоченного многомерного массива, в инете ничего похожего не могу найти