centro de gravedad

[goomba91]

saludos, estoy desarrollando un programa que calcula el centro de gravedad de dos poblaciones con coordenadas x, y en delphi 7 pero en el momento de calcular las medias de las coordenadas me da error y no se como solucionarlo, os adjunto el codigo:

program exer_8_1;

{$APPTYPE CONSOLE}

uses
SysUtils;

const
max=2;

type
t_punt=record
color:string;
y:real;
x:real;
end;
t_index=array[1..max] of t_punt;

var
punt:t_index;
i,sumx,sumy,term:integer;
m1,m2: real;

begin

writeln('programa que calcula el centro de gravedad');
for i:=1 to max do
begin
write('Escribe el nombre del municipio: ');
readln(punt[i].color);
write('escribe la componente ''x'': ');
readln(punt[i].x);
write('escribe la componente ''y'': ');
readln(punt[i].y);
end;

for i:=1 to max do
begin
sumx:=sumx+punt[i].x;
sumy:=sumy+punt[i].y;
term:=max;
m1:=sumx/term;
m2:=sumy/term;
end;

end.