Продемонстрировать описание решения данной программы с использованием функций.

[maxwelln1]

var
  s,r,t,t1,t2,p:string;
begin
  write('введите строку:');
  readln(s);
  s:=s+' ';t:='';t:='';
  for i:integer:=1 to length(s) do 
    if s[i]<>' ' then t:=t+s[i] else begin 
      t1:='';
      t2:='';
      p:='';
     for j:integer:=1 to length(t) do 
       if t[j] in ['0'..'9'] then t1:=t1+t[j] else t2:=t2+t[j];//строку разделили на строку цифр и строку букв
     for j:integer:=length(t1) downto 1 do p:=p+t1[j];//записали цифры в обратном порядке в начало строки;
     r:=r+p+t2+' ';t:='';
   end;
  s:=r;  
  writeln(s);
end.

Продемонстрировать описание решения данной программы с использованием функций.