Вывести средние скорости между тремя заданными парами пунктов

type
    P = array [1..12] of string;
    T = array [1..11] of Word;
    R = array [1..11] of Word;
 
var
    destination : P;
    destination1, destination2 : string;
    way   : R;
    time  : T;
    w, tm, V : Real;
    i, i1, i2, j : Byte;
 
begin
     for i := 1 to 12 do begin
         Writeln('Введите название населенного пункта ');
         Readln(destination[i]);
         end;
     for i := 1 to 11 do begin
         Writeln('Введите расстояние между ', destination[i], ' и ', destination[i+1], ': ');
         Readln(way[i]);
         end;
     for i := 1 to 11 do begin
         Writeln('Введите среднее время в пути между ', destination[i], ' и ', destination[i+1], ': ');
         Readln(time[i]);
         end;
     for j := 1 to 3 do begin
          Writeln('Введите название пунктов, между которыми необходимо узнать среднюю');
          Write('скорость: ');
             Readln(destination1, destination2);
                for i := 1 to 3 do begin
                  if destination1 = destination[i] then
                     i1 := i;                       
                  if destination2 = destination[i] then
                     i2 := i;                       
                end;
 
          for i := i1 to i2-1 do
            tm := tm + time[i];
 
          for i := i1 to i2-1 do
            w := w + way[i];
 
          V := w / tm;
          Writeln('Средняя скорость между пунктами = ', V);
      end
end.