Автомобиль на круговой дороге Опции

[Kolyancz]

Представьте себе круговую трассу, на которой на произвольном расстоянии размещены заправки, каждая с определенным объемом бензина. Кол-во бензина на всех заправках равно длине дороги. Ваш автомобиль потребляет 100 литров на 100 км и имеет неограниченный бензобак. Вопрос: в какой точке автомобиль должен начать движение, что бы у него никогда не кончался бензин во время поездки?
Дано: 2 массива, 1-ый с объемами бензина на заправках с направлении хода часов, 2-ой с расстояниями между заправками.
Как заставить два массива сравниваться подобным образом?

[Lapp]

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

Забавная задачка . Как я понимаю, исходная точка должна найтись обязательно. Возможно, она не одна, но мой код находит только первую.

Как заставить два массива сравниваться подобным образом?

Сначала я сделал вторым способом, но разброс во втором массиве получился низкий. Тогда я сделал первый способ. Он значительно улучшил ситуацию, но совсем честным будет только продолжение первого цикла первого способа до достижения t=0.

const
  m=20;

var
  Gas,Way: array[1..m]of integer;
  Start,Tank,t,i: integer;

begin
  { Заполнение массивов }
  Randomize;
  t:=0;
  { первый способ}
  for i:=1 to m do begin
    Gas[i]:=Random(m)+1;
    Way[i]:=Random(m)+1;
    t:=t+Gas[i]-Way[i];
  end;
  for i:=1 to Abs(t) do Inc(Way[Random(m)+1],t div Abs(t));

  { второй способ }
  {for i:=1 to m do begin
    Gas[i]:=Random(m)+1;
    t:=t+Gas[i];
    Way[i]:=0
  end;
  for i:=1 to t do Inc(Way[Random(m)+1]);}

  for i:=1 to m do WriteLn('Pump:',i:3,'     Gas:',Gas[i]:3,'     Way:',Way[i]:3);

  { Езда }
  Start:=0;
  repeat
    Inc(Start);
    Tank:=0;
    i:=Start;
    while Tank>=0 do begin
      Tank:=Tank+Gas[i]-Way[i];
      i:=i mod m+1;
      if i=Start then break
    end;
  until Tank=0;
  WriteLn('start at pump ',Start);
  ReadLn
end.

[Kolyancz]

Lapp, ты действительно гений. Очень красиво решил. Спасибо.