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

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.

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