Програмирование в 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.