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

Var
    s, a: string;
    i: integer;

begin
    readln(s);
    
    1-ый вариант
    a := 'Нет';
    for i := 1 to length(s) do
        if (s[i] = 'e') or (s[i] = 'е') then begin
            a := 'Да';
            break;
        end;
    
    writeln(a);
    
    2-ой вариант
    if (Pos('e', s) gt; 0) or (Pos('е', s) gt; 0) then
        writeln('Да')
    else writeln('Нет');
end.

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 kgt;0 then writeln('Да') else writeln('Нет'); 
end.