Code (Text): program Example; var aString : string; begin aString:= 'Dont do drugs '; Writeln(Between(' ',' ', aString)); end. try it ^^