В общем, у меня получилось так (только, извините - без кириллицы, это уж Вы сами):
Код:
var
a,b,c:string;
k,n,m,p:integer;
begin
writeln('Enter the string:');
readln(a);
k:=1;
while k<=length(a) do
if (a[k]=' ') and (a[k+1]<>' ') then
begin
insert('no ',a,k+1);
k:=k+4;
end
else k:=k+1;
writeln(a);
readln
end.