Ayuda Con Un Programa

[darnnezt]

ANTE TODO AMIGOS SALUDOS A TODOS, CREO EL SIGUIENTE HILO CON EL FIN DE ENCONTRE SOLUCION A LOS SIGUIENTES ERRORES Q SE PRESENTAN EN LA SIGUIENTE CODIFICACION.

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var  i,sumi,pro7,prom,n,cpro,num,sumpro,sumint:Integer;
begin
//injicialixacion

i:=0; sumi:=0; pro7:=1; cpro:=0; sumpro:=0; sumint:=0;
//prcesamiento

n:=strtoint(inputbox('CANTIDAD DE VALORES ENTEROS','N=',''));
//repetitiva
while ido
begin
num:= strtoint(inputbox('INGRESE EL NUMERO','NUM=',''));
if odd(num) then
sumi:= sumi+NUM;

if (num mod 7=0) then
pro7:= pro7*num;
if (num >= 43 and NUm <= 119) or (NUM >= -40 and NUM <= 10)then
sumint:= sumint+num;

if not odd(NUM) and Num >=0 and NUM >10 then
cpro:= cpro+1;
sumpro:= sumpro+NUM;
prom:= sumpro/cpro;

i:=i+1;

 end;

 showmessage('SUMA DE LOS IMPARES' + inttostr(sumi));
 showmessage('PRODUCTO DE MULTIPLOS DE 7' + inttostr(pro7));
 showmessage('SUMA DE INTERVALOS' + inttostr(sumint));
 showmessage('PROMEDIO' + inttostr(prom));

la linea roja es la del error ( dice que los operadores no son compatibles en la operacion)
Saludos y espero su cordial ayuda