Найти элементы массивы, содержащие минимальные значения - Pascal ABC

var a,b: array[0..10] of integer;
    x, i, m,ts,j,t1,t2,p,s,min: integer;
begin
  write('Введите кол-во домов: ');
  readln(m);
  write('Введите расстояние между домами: ');
  readln(x);
  a[1] := 0;
  writeln('Расстояния от первого дома');
  writeln('1 - 0');
  for i := 2 to m do begin
    a[i] := a[(i - 1)] + x;
    writeln(i, ' - ', a[i]);
  end;
  writeln('Введите дом куда, нужно поставить первый телефон');
  readln(t1);
  writeln('Введите дом куда, нужно поставить второй телефон');
  readln(t2);
  writeln('Тел.станция - минимальное суммарное расстояние от станции до телефонов');
   for i:=2 to t1 do
   a[i]:=abs(a[i-1]+x);
   for j:=2 to t2 do
   a[j]:=abs((a[j-1]+x));
   for p:=2 to m do
   begin
   if (p<=t1) and (pt1) and (p<=t2) then
  begin
  s:=a[t2]-a[t1];
  end;
  if (p>t1) and (p>t2) then
  begin
  s:=abs(a[p]-a[i]);
  end;
   writeln(p,'------------',s);
   end;
   
end.