Паскаль. String

[grisha2207]

Паскаль. String

В заданном тексте слова разделены не менее чем одним пробелом.Вставить перед каждым словом частицу 'не'

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

 

[Vladimir_S]

if a[k]=' ' then insert('не',a,k+1) and (k:=k+2) else k:=k+1;

Конструкция абсолютно невразумительная. К чему относится "and"? Как-то оно тут ни к селу, ни к городу. Что Вы пытались написать? Опишите алгоритм словами.

 

[Vladimir_S]

В общем, у меня получилось так (только, извините - без кириллицы, это уж Вы сами):

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.

 

[grisha2207]

если в строке(а) будет символ равный пробелу тогда вставить 'не' в строке (а)
на место k+1 и присвоить k:=k+2

 

[Vladimir_S]

Если в условном операторе при выполнении (или невыполнении) условия требуется выполнить более одной операции, то эти операции перечисляются подряд (с разделителем "точка с запятой", естественно) и вся группа заключается в операторные скобки "begin..end". А связка "and" тут вовсе ни при чем: она используется для совершенно другого.

 

[grisha2207]

Точно я забыл что and не используетcя после then спасибо за помощь