В заданном тексте слова разделены не менее чем одним пробелом.Вставить перед каждым словом частицу 'не'
program qwe;
vara,b,c:string;k,n,m,p:integer;
begin
readln(a);
k:=1;
while k<=length(a) do
if a[k]=' ' then insert('не',a,k+1) and (k:=k+2) else k:=k+1;
readln
end.
помогите пожалуйста что я сделал не так он мне пишет ошибку номер 5