Динамические переменные

var ax,ay,bx,by,cx,cy,a,b,c,p,s:^real;
begin
repeat
new(ax);new(ay);new(bx);new(by);new(cx);new(cy);
writeln('Введите координаты трех вершин треугольника:');
readln(ax^,ay^,bx^,by^,cx^,cy^);
new(a);new(b);new(c);
a^:=sqrt(sqr(bx^-cx^)+sqr(by^-cy^));
b^:=sqrt(sqr(ax^-cx^)+sqr(ay^-cy^));
c^:=sqrt(sqr(bx^-ax^)+sqr(by^-ay^));
if (a^>=b^+c^)or(b^>=a^+^c)or(c^>=a^+b^)
then writeln('Это не треугольник, повторите ввод');
until (a^<b^+c^)and(b^<a^+c^)and(c^<a^+b^);
new(p);new(s);
p^:=(a^+b^+c^)/2;
s^:=sqrt(p^*(p^-a^)*(p^-b^)*(p^-c^));
writeln('Площадь=',s^:0:2);
p^:=p^*2;
write('Периметр=',p^:0:2);
readln;
dispose(ax);dispose(ay);dispose(bx);dispose(by);dispose(cx);dispose(cy);dispose(a);dispose(b);dispose(c);dispose(p);dispose(s);
end.

  repeat
    writeln('Введите координаты трех вершин треугольника:');
    readln(ax, ay, bx, by, cx, cy);
    a := sqrt(sqr(bx - cx) + sqr(by - cy));
    b := sqrt(sqr(ax - cx) + sqr(ay - cy));
    c := sqrt(sqr(bx - ax) + sqr(by - ay));
    if (a >= b + c) or (b >= a + c) or (c >= a + b)
      then writeln('Это не треугольник, повторите ввод');
  until (a < b + c) and (b < a + c) and (c < a + b);
  p := (a + b + c) / 2;
  s := sqrt(p * (p - a) * (p - b) * (p - c));
  writeln('Площадь=', s:0:2);
  p := p * 2;
  write('Периметр=', p:0:2);
  readln