Составьте программу, которая вставляет после первого слова строки s запятую и выводит полученную строку на экран.Строка s, состоящая из двух слов, разделенных пробелом, вводится с клавиатуры.

uses crt;var s: string; i: integer;Beginreadln(s);for i := 1 to length(s) doif s[i] = ' ' then s[i] := ',';writeln(s);End.