Рабочее

[Zakhnafein]

про код

type
TPath=record
Path: array of TPoint;
end;

var
Paths: array of array of TPath;

массив массива, значения которого - массив

А вы говорите "рекурсия".