1: function ReverseString( s : string ) 2: : string; 3: var 4: i : integer; 5: s2 : string; 6: begin 7: s2 := ''