Что нужно добавить в код чтобы текст "расстояния равны" появлялся если задать одинаковые точки - Pascal

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

что нужно добавить в код чтобы текст "расстояния равны" появлялся если задать одинаковые точки Ввод A(x1;y1); B(x2;y2) d1=√(x1*x1+y1*y1) d2=√(x2*x2+y2*y2) если d1<d2(точка A ближе) иначе d1>d2 (точка B ближе) иначе расстояния равны Решение

                    Листинг программы
                
 
                        
                          
                    
Program coordinate; 
var 
x1,y1,x2,y2,d1,d2:real; 
begin 
writeln('Введите A(x,y)'); 
readln(x1); 
readln(y1); 
writeln('Введите B(x,y)'); 
readln(x2); 
readln(y2); 
d1:=sqrt((x1*x1)+(y1*y1)); 
d2:=sqrt((x2*x2)+(y2*y2)); 
if d1>d2 then 
 writeln('точка A ближе') ;
 writeln('точка  B ближе') ;
end.

Решение задачи: «Что нужно добавить в код чтобы текст "расстояния равны" появлялся если задать одинаковые точки»

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

Program coordinate;
const t=0.001;//точность сравнения вещественных чисел
var
x1,y1,x2,y2,d1,d2:real;
begin
writeln('Введите A(x,y)');
readln(x1);
readln(y1);
writeln('Введите B(x,y)');
readln(x2);
readln(y2);
d1:=sqrt((x1*x1)+(y1*y1));
d2:=sqrt((x2*x2)+(y2*y2));
if d2-d1>t then writeln('точка A ближе')
else if d1-d2>t then writeln('точка B ближе')
else if abs(d1-d2)<t then writeln('расстояния равны');
end.

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

Создается программа для расчета расстояний между двумя точками в пространстве.
В программе объявлены следующие переменные:
- t - константа, используемая для определения точности сравнения вещественных чисел.
- x1, y1, x2, y2 - переменные, в которые пользователь будет вводить координаты точек A и B.
- d1, d2 - переменные, в которые будут сохраняться расстояния от точек A и B до ближайшей точки.
С помощью функции readln считываются координаты точек A и B.
Вычисляются расстояния от точек A и B до ближайшей точки с помощью формулы расстояния между двумя точками в пространстве: sqrt((x1x1)+(y1y1)), sqrt((x2x2)+(y2y2)), sqrt((x1x1)+(y1y1)).
Сравнивается расстояние между точками A и B с заданной точностью t. Если расстояние между точками A и B больше t, то выводится сообщение точка A ближе. Если расстояние между точками A и B меньше t, то выводится сообщение точка B ближе. Если расстояние между точками A и B равно t, то выводится сообщение расстояния равны.
Программа завершается после вывода сообщения о расстоянии между точками A и B.