function ClosestTile(Tiles : TTileArray) : TTile;
var
  TileLength, i,j:Integer;
  Distances : TIntegerArray;
begin
  for i:=0 to high(Tiles) do
  begin
    Distances[0]:=DistanceFrom(Tiles[i]);
    writeln(Distances[0]);
  end;
end;