Треугольник задан координатами своих вершин. Найти периметр и площадь треугольника — Pascal(Паскаль)

program vad2211;
uses crt;
var
   x,y:array[1..3] of integer;
   a,b,c,p,s:real;
   i:integer;
begin
 clrscr;
 for i:=1 to 3 do
  begin
   write('x',i,'=');readln(x[i]);
   write('y',i,'=');readln(y[i]);
  end;
 a:=sqrt(sqr(x[2]-x[1])+sqr(y[2]-y[1]));
 b:=sqrt(sqr(x[3]-x[2])+sqr(y[3]-y[2]));
 c:=sqrt(sqr(x[1]-x[3])+sqr(y[1]-y[3]));
 if a+b>c then
  begin
   p:=a+b+c;
   writeln('Периметр: ',p:4:2,' м');
   p:=p/2;
   s:=sqrt(p*(p-a)*(p-b)*(p-c));
   writeln('Площадь: ',s:4:2,' м^2');
  end
 else
  writeln('Не найдено!');
end.