составьте программу,которая инспектирует ,входит ли буковка "w" в текст (ответ обязан

Составьте программку,которая инспектирует ,заходит ли буковка "w" в текст (ответ обязан быть "да" или "нет")
ОЧЕНЬ Безотлагательно!!ПОМОГИТЕ ПОЖАЛУЙСТА)

Задать свой вопрос
1 ответ
Var 
s: string; 
i, n: integer;
begin 
write('Введите текст '); 
Readln(s); 
for i := 1 to length(s) do    i
f (s[i] = 'w') or (s[i] = 'W') then begin     
write('Да');     
n := 1;     
Break;   
end; 
if n lt;gt; 1 then write('Нет');
end.
Ангела Тимукиене
спасибо огромное))
Виолетта Остронова
) (буду рад если нажмёшь кнопку спасибо под ответом)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт