На числовой оси расположены три точки: A, B, C. Определить, какая из двух последних точек (B или C) расположена ближе к A, и вывести эту точку и ее расстояние от точки A — Pascal(Паскаль)

program zadanie;

var
  a, b, c, rast: integer;

begin
  Writeln('введите число');
  readln(a);
  Writeln('введите число');
  readln(b);
  Writeln('введите число');
  readln(c);
  If (a - b) < (a - c) then
  begin
    rast := abs(b - a);
    Writeln('Результат: Точка В=', b, ' ближе к точке А=', a, ' чем точка С=',
      c, ' Растояние межде А и В =', rast);
  end
  Else
  begin
    rast := abs(b - a);
    Writeln('Результат: Точка C=', c, ' ближе к точке А=', a, ' чем точка B=',
      b, 'Растояние межде A и C =', rast);
  end;

end.