Програмирование в pascal, помогите, скиньте работающую программу. Дано четырёхзначное число. Найдите среднее арифметическое его средних цифр.

только пожалуйста без sum

Var a,i,n,sum:integer;
Begin   
         write('Введите 4-х значное число: '); readln(n); 
i:=n mod 100; i:=i div 10; 
a:=n div 100; a:=a mod 10; 
sum:=a+i; 
i:=sum div 2; 
      writeln('Среднее арифметическое средних чисел числа',n,'=',i);
End.

Огромное спасибо!!