Question

How to reverse a word in a string with Pascal

Answer 1

program ReverseWordInString;

procedure ReverseWord(var str: string; word: string);
var
  index, i: integer;
  reversed: string;
begin
  index := Pos(word, str);
  if index > 0 then
  begin
    reversed := '';
    
    for i := Length(word) downto 1 do
      reversed := reversed + word[i];
      
    Delete(str, index, Length(word));
    Insert(reversed, str, index);
  end;
end;

var
  str, word: string;

begin
  str := 'C++ C Java Python PHP C# Pascal';
  word := 'Java';

  ReverseWord(str, word);

  WriteLn(str);
end.




(*
run:

C++ C avaJ Python PHP C# Pascal

*)

 

70+ SQL courses for beginners and professionals