Помогите срочно с нформатикой, плиз: написать процедуру…

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;