program DoubleQuoteStringExample;
var
str: string;
begin
str := 'This is a string with "double-quoted substring1", and "double-quoted substring2" inside.';
writeln(str);
end.
(*
run:
This is a string with "double-quoted substring1", and "double-quoted substring2" inside.
*)