По координатам трёх вершин некоторого треугольника найти его площадь и периметр

uses crt;
const n=3;
var a:array[1..n,1..n] of integer;
    i,j,sum:integer;
begin
for i:=1 to n do
    begin
         for j:=1 to n do
                     begin
                       a[i,j]:=random(10);
                       write(a[i,j],' ');
                       sum:=sum+a[i,j];
                     end;
        writeln;
    end;
        if odd(sum) then writeln('Не четное')
                    else writeln('Четное');
end.

program Dekio;
var
st :string;
i,kol :integer;
begin
writeln('Введите строку');
readln(st);
for i:=1 to length(st) do
if st[i]=' ' then
inc(kol);
writeln('Процент пробелов ',kol*100/length(st):3:1);
end.

var a1,a2, b1,b2,c1,c2:integer;
    l1,l2,l3,per,S:real;
label 1;
begin
1:;
writeln('Введите координаты точки А');
readln(a1,a2);
writeln('Введите координаты точки B');
readln(b1,b2);
writeln('Введите координаты точки C');
readln(c1,c2);
l1:=sqrt(sqr(b1-a1)+sqr(b2-a2));
l2:=sqrt(sqr(c1-a1)+sqr(c2-a2));
l3:=sqrt(sqr(b1-c1)+sqr(b2-c2));
if (l1<>0) and (l2<>0) and (l3<>0) then
 begin
  per:=l1+l2+l3;
  writeln('Периметр треугольника равен ',per:2:2);
  S:=sqrt((per/2)*(per/2-l1)*(per/2-l2)*(per/2-l3));
  writeln('Площадь треугольника равна ',S:2:2)
 end
else 
 begin
  writeln('Введеные координаты некорректны! Попробуйте еще раз...');
  goto 1
 end;
end.