Перевод на Delphi из PHP

[spirit-ua]

Всем Привет!

Помогите перевести

$points[1][2]=true; 
$points[2][1]=true; 
 
$points[1][3]=true; 
$points[3][1]=true; 
 
$points[2][3]=true; 
$points[3][2]=true; 
 
$points[2][4]=true; 
$points[4][2]=true; 
 
$points[3][4]=true; 
$points[4][3]=true; 
 
/* 
$paths - массив найденных путей 
$list - ассоциативный массив пройденных точек в конкретной рекусии; 
$path - конкретный путь данной рекурсии; 
*/ 
function GetConnection($p1, $p2, &$paths, &$list = array(), $path = array()) { 
        global $points; 
 
        $list[$p1] = true; 
        $path[] = $p1; 
        if($p1 == $p2) { 
                $paths[] = $path; 
                print_r($path); print "<br />";
        } else { 
                foreach($points[$p1] as $pnt => $data) { 
                        if(!isset($list[$pnt]) || !$list[$pnt]) { 
                                GetConnection($pnt, $p2, $paths, $list, $path); 
                        } 
                } 
        } 
        $list[$p1] = false; 
} 
 
$paths = array(); 
GetConnection(1, 4, $paths);

с переменными я разберусь, а вот ассоциативные массив и синтаксис... помогите плиз

[spirit-ua]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);

    procedure GetConnection(p1,p2: integer; paths: array of string; list: array of boolean; path: array of integer);
    procedure Button1Click(Sender: TObject);

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

var
  Form1: TForm1;

  points : array of array of boolean;
  //paths  : array of string;
  //list   : array of boolean;
  //path  : array of string;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
 begin
   points[1,2] := True;
   points[1,3] := True;

   points[2,1] := True;
   points[2,3] := True;
   points[2,4] := True;

   points[3,1] := True;
   points[3,2] := True;
   points[3,4] := True;

   points[4,2] := True;
   points[4,3] := True;

   //Label1.Caption := (points[1,1]);
 end;

procedure TForm1.GetConnection(p1, p2: integer; paths: array of string; list: array of boolean; path: array of integer);
 begin
   list[p1] := true;
   path[...........] := p1;    ТУПИК

 end;

procedure TForm1.Button1Click(Sender: TObject);
 begin
   GetConnection(1, 4......  ТУПИК
 end;

end.

[spirit-ua]

и никто не поможет?