Найти точку где расстояние минимально - Pascal ABC

Формулировка задачи:

Здравствуйте, помогите пожалуйста решить задачу: имеется 7 точек на одной линии, расстояние между которыми 5 метров(одинаковое). Далее нужно выбрать две какие нибудь точки, куда нужно поставить телефон. Затем нужно определить в какую из всех точек нужно поставить телефонную станцию, чтобы суммарное расстояние от телефонной станции до двух точек, где поставлены телефоны было минимальным.

Решение задачи: «Найти точку где расстояние минимально»

Листинг программы

var t1,t2,x,st:integer;
begin
repeat
writeln('Выберите точки установки телефонов от 1 до 7 t2>t1');
readln(t1,t2);
until (t1 in [1..7])and(t2 in [1..7])and(t2>t1);
if t2-t1=1 then
 begin
  if t1=1 then write('Станция в точке 3')
  else if t1=6 then write('Станция в точке 5')
  else write('Станция в точках ',t1-1,' или ',t2+1);
 end
else
 begin
  x:=(t1+t2)div 2;
  if odd(x) then write('Станция в точках ',x,' или ',x+1)
  else write('Станция в точке ',x);
 end;
end.

Объяснение кода листинга программы

Объявлены четыре переменные: t1, t2, x, st типа integer.
Цикл while повторяет блок кода до тех пор, пока не будут введены корректные значения для переменных t1 и t2 (в диапазоне от 1 до 7, где t2 больше t1).
Если t2-t1 равно 1, то выводится сообщение о том, где находится станция.
Если t2-t1 не равно 1, то находится среднее арифметическое t1 и t2, при необходимости выводится сообщение о том, где находится станция.