Задана запись, имеющая три поля: первое – первая сторона треугольника, второе –вторая сторона треугольника, третье – третья сторона треугольника. Найти площадь и периметр такого треугольника — Pascal(Паскаль)

uses crt;
type treug=record
           a,b,c:real;
           end;
var t:treug;
    p,s:real;
begin
clrscr;
repeat
writeln('Введите стороны треугольника:');
readln(t.a,t.b,t.c);
if(t.a<=abs(t.b-t.c))or(t.a>=t.b+t.c)then
writeln('Это не треугольник. Повторите вод.');
until (t.a>abs(t.b-t.c))and(t.a<t.b+t.c);
p:=t.a+t.b+t.c;
writeln('Периметр=',p:0:2);
p:=p/2;
s:=sqrt(p*(p-t.a)*(p-t.b)*(p-t.c));
write('Площадь=',s:0:2);
readln
end.