Hola goomba91 y bienvenido.
En principio tendrías que modificar la declaración de variables de manera que
sumx y
sumy sean números reales
Código Delphi
[-]
var
punt: t_index;
i, term: Integer;
sumx, sumy, m1, m2: real;
Ya que en las líneas:
Código Delphi
[-]
sumx:= sumx + punt[i].x;
sumy:= sumy + punt[i].y;
Les estas asignando ese tipo numérico.
De ese modo se ejecutará sin arrojar errores de compilación.
Saludos.