Составить программу на Паскале: Ввести с клавиатуры строку. приписать к ней фразу "ПРИВЕТ", начиная с 4 символа исходной строки

Если правильно тебя понял, то вот такой код.

var str,str1:string;

I:integer;

begin

Read(str);

str1:=str[1] + str[2] + str[3] + 'Привет!';

for I:=4 to length(str) do

begin

str1:=str1 + str[i];

end;

Writeln(str1);

end.