Дано многоразрядное число n< =10^9. найти среднее арифметическое цифр числа, разряды которых равны 2 и 5. p.s. я уже задавала эту , но у меня ее не приняли так как нужно через цикл

// счет разрядов от нуля справа налево: ХХХ5ХХ2ХХ
var
  n:longint;
  a,b,k,d:integer;
begin
  Write('Введите натуральное число длиной 6-9 цифр: ');
  Read(n);
  k:=0;
  while n>0 do begin
    d:=n mod 10;
    if k=2 then a:=d
    else
      if k=5 then b:=d;
    Inc(k);
    n:=n div 10
    end;
  Writeln('Ср. арифм. разрядов 2 и 5 равно ',(a+b)/2)
end.

Пример
Введите натуральное число длиной 6-9 цифр: 123456789
Ср. арифм. разрядов 2 и 5 равно 5.5