Ребята помогите! Пожалуйста Составте программу нахождения растояния мужду двумя точками с координатами x1 и x2, лежащими на числовой оси. Значения x1 и x2 введте с клавиатуры.

Var   x1,x2:integer;
begin
 writeln(x1);
  read(x1);
 writeln(x2);
  read(x2);
  if x1>x2 then
  writeln(abs(x1-x2))
  else
  writeln(abs(x2-x1));
 end.