паскаль, пожалуйста помогите. Дана последовательность символов. Выяснить, есть ли в данной последовательности сочетание символов "ва"

Var   S:string;   B:boolean;   i:integer;BeginB:=false;Write('Введите строку: ');ReadLn(S);For i:= 1 to Length(S)-1 do    if S[i] = 'в' then       if S[i+1] = 'а' then B:=true;if B then Write('Есть')else Write('Нет')End.