Помогите пожалуйста!найти сумму площадей тругольников авс и мнр заднных кординатми вершин

Program sumS;
uses crt;
var 
ax,ay,bx,by,cx,cy,mx,my,nx,ny,px,py:integer;
S1,S2,Sum:real;
begin
write( 'Введите координату х верхушки А:');
readln(ax);
write( 'Введите координату y верхушки А:');
readln(ay);
write( 'Введите координату х верхушки B:');
readln(bx);
write( 'Введите координату y вершины B:');
readln(by);
write( 'Введите координату х верхушки C:');
readln(cx);
write( 'Введите координату y верхушки C:');
readln(cy);
write( 'Введите координату х верхушки M:');
readln(mx);
write( 'Введите координату y вершины M:');
readln(my);
write( 'Введите координату х верхушки N:');readln(nx);
write( 'Введите координату y верхушки N:');
readln(ny);
write( 'Введите координату х верхушки P:');
readln(px);
write( 'Введите координату y верхушки P:');
readln(py);
writeln( 'Координаты треугольника ABC: A(' ,ax,';',ay,') ,B('  ,bx,';',by,') ,C('  ,cx,';',cy,')'); 
writeln( 'Координаты треугольника MNP: M(' ,mx,';',my,') ,N('  ,nx,';',ny,') ,P('  ,px,';',py,')'); 
S1:=абс(((ax-cx)*(by-cy)-(bx-cx)*(ay-cy))/2);
writeln('Площадь треугольника ABC=',S1);
S2:=абс(((mx-px)*(ny-py)-(nx-px)*(my-py))/2);
writeln('Площадь треугольника ABC=',S2);
Sum:=s1+s2;
writeln('Сумма площадей=',sum);
readln;end.