function!!! (pascal)

Помогите переписать эту программу через function , а то я что-то не понимаю что да как через функцию, без неё сделал (желательно, с объяснением). Заранее спасибо!

Program razryad;
var a, s, chislo: integer;
  m: array [1..7] of string = ('Единиц', 'Десятков', 'Сотен', 'Тысяч', 'Десятков тысяч', 'Сотен тысяч', 'Миллионов');
begin
  writeln ('Введите ваше число:');
  read(chislo);
  s := 0;
  while chislo > 0 do
  begin
    s := s + 1;
    a := chislo mod 10;
    writeln(m[s], ': ', a); 
    chislo := chislo div 10;
  end;
end.