помогите написать программу на паскале

program biss;
uses crt;
var
x,y,bis:array [1..3] of real;
a,b,c:real;
begin
clrscr;
write('vvedite tochku A(x1,y1):');
readln(x[1],y[1]);
write('vvedite tochku B(x2,y2):');
readln(x[2],y[2]);
write('vvedite tochku C(x3,y3):');
readln(x[3],y[3]);
a:=sqrt((x[1]-x[2])*(x[1]-x[2])+(y[1]-y[2])*(y[1]-y[2]));
b:=sqrt((x[2]-x[3])*(x[2]-x[3])+(y[2]-y[3])*(y[2]-y[3]));
c:=sqrt((x[1]-x[3])*(x[1]-x[3])+(y[1]-y[3])*(y[1]-y[3]));
bis[1]:=sqrt(a*b*(a+b+c)(a+b-c))/(a+b);
bis[2]:=sqrt(a*c*(a+b+c)(a+c-b))/(a+c);
bis[3]:=sqrt(c*b*(a+b+c)(c+b-a))/(c+b);
writeln('Dlinna bisektris:',bis[1],' ',bis[2],' ',bis[3]);
readln;
end;