program ReplaceSpecialChars;
uses
SysUtils; // StringReplace // rfReplaceAll
function ReplaceChars(input: string): string;
var
specialChars: string;
i: Integer;
begin
specialChars := '!@#$%^*_+=\';
for i := 1 to Length(specialChars) do
input := StringReplace(input, specialChars[i], ' ', [rfReplaceAll]);
ReplaceChars := input;
end;
var
input, result: string; // Declare variables **before** `begin`
begin
input := 'The!quick@brown#fox$jumps%^over*_the+\lazy=dog.'; // Assign value inside `begin`
// Perform character replacement
result := ReplaceChars(input);
WriteLn('Original: ', input);
WriteLn('Modified: ', result);
end.
(*
run:
Original: The!quick@brown#fox$jumps%^over*_the+\lazy=dog.
Modified: The quick brown fox jumps over the lazy dog.
*)
