Ввести с клавиатуры координаты двух точек (а и в) на плоскости

Program n1;
var x1,x2,y1,y2: real;
begin
write('координаты точки A: ');
readln(x1,y1);
write('координаты точки B: ');
readln(x2,y2);
write('AB=',sqrt(sqr(x2-x1)+sqr(y2-y1)));
end.

Uses crt;
var xA,xB,yA,yB,D: real;Begin 
clrscr;
 write('Введите координаты точки A через пробел: ');
      readln(xA,yA);
      write('Введите координаты точки B через пробел: ');
      readln(xB,yB);      d:=sqrt(sqr(xA-xB)+sqr(yA-yB));
      writeln;
      writeln('Длина отрезака AB = ',d:0:3)
  End.