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

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 <> 1 then write('Нет');
end.