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

procedure Reverse (var a:integer); var   r:integer; begin   r := 0;   while a <> 0 do   begin     r := r * 10 + a mod 10;     a := a div 10;   end;   a := r; end;     //функция function Reverse (a:integer):integer; var   r:integer; begin   r := 0;   while a <> 0 do   begin     r := r * 10 + a mod 10;     a := a div 10;   end;   Reverse := r; end;