Найти периметр и площадь треугольника, используя формулу для расстояния между двумя точками на плоскости - Turbo Pascal

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

Даны координаты трех вершин треугольника : (x1,y1,x2,y2,x3,y3 ).Найти его периметр и площадь, используя формулу для расстояния между двумя точками на плоскости. Для нахождения площади треугольника со сторонами a,b,c использоваться формулу Герона: S=(p*(p-a)*(p-b)*(p-c))^(1/2), где P=(a+b+c)/2-полупериметр

uses
  SysUtils;
 
var a,b,c,p,s,x1,y1,x2,y2,x3,y3:real;
begin
  write ('Koordinaty 1 vershyny treugolnika x1,y1=');
  read (x1,y1);
  write ('Koordinaty 2 vershyny treugolnika x2,y2=');
  read (x2,y2);
  write ('Koordinaty 3 vershyny treugolnika x3,y3=');
  read (x3,y3);
  a:=sqrt(sqr(x2-x1)+sqr(y2-y1));
  b:=sqrt(sqr(x3-x2)+sqr(y3-y3));
  a:=sqrt(sqr(x1-x3)+sqr(y1-y3));
  p:=(a+b+c)/2;
  s:=sqrt(p*(p-a)*(p-b)*(p-c));
  writeln('Perimetr treugolnika=',a+b+c:0:1,' Ploshad treugolnika=',s:0:1);
  readln;
  readln;
end.

Запускается но когда ввожу разные значения она закрывается А когда одинаково то показывает все 0

Решение задачи: «Найти периметр и площадь треугольника, используя формулу для расстояния между двумя точками на плоскости»

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

a:=sqrt(sqr(x2-x1)+sqr(y2-y1));
b:=sqrt(sqr(x3-x2)+sqr(y3-y2));
c:=sqrt(sqr(x1-x3)+sqr(y1-y3));

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

x1, y1 - координаты первой точки
x2, y2 - координаты второй точки
x3, y3 - координаты третьей точки
a, b, c - переменные для хранения длин сторон треугольника
sqr - функция возведения в квадрат
формула для нахождения расстояния между двумя точками на плоскости