В исходном предложении заменить все символы пробела символом "_" Напечатать исходный текст и иобработаный текст

akva, какие сложности? Замену в строке можно сделать так:

for i:=1 to Length(s) do if s[i]=' ' then s[i]:='_';

- или так:

while Pos(' ',s)>0 do s[Pos(' ',s)]:='_';

Первый способ предпочтительнее..