Строки...(Паскаль)

[Keti]

Может быть кто-нибудь подскажет...уже голову сломала...
Задание: Дан текст. Преобразовать строку, добавив запятые перед «а» и «но».

Вот что у меня получилось:

uses Crt;
var s: string;
i: byte;
begin
ClrScr;
Writeln ('введите текст: ', s);
Readln (s);
for i:=length(s) downto 1 do
if (s[i]='а') or (s[i]='н') and (s[i+1]='о') and (i<length(s)) then
insert(',' ,s,i);
Writeln (s);
Readln (s);
end.

Не могу найти ошибку...запятые ставятся в середине слов, это можно как-то исправить? Помогите, пожалуйста....

[whatever]

Условия нужно немножко поменять:

 if (i+2<length(s)) then
   if ((s[i]='а')and(s[i+1]=' ')and(s[i-1]=' ')) or ((s[i]='н')and(s[i+1]='о')and((s[i+2]=' ')and(s[i-1]=' ')))  then

Несколько громоздко, но правильно. Суть в том, что добавляется проверка на наличие пробелов перед и после "а" и "но".

Да, и еще: вместо

insert(',' ,s,i);

нужно

insert(',' ,s,i-1);

[Keti]

Спасибо, большое!))) У меня были мысли по поводу пробелов, только воплотить не получилось... Благодарю за помощь