Составие программу,которая печатает "да", если слово содержит букву"е" и "нет", если не содержит . отладку выполнить для слов : "предмет" и "колонна"

Var x:string; k,i:integer; 
begin 
k:=0; 
read(x); 
for i:=1 to length(x) do begin 
if copy(x, i, 1)=е then k:=k+1; 
end; 
if k>0 then writeln(Да) else writeln(Нет); 
end.