Напишите программу для подсчёта числа букв "у" в слове Х, стоящих на нечётных местах

Var x:String;
    i,k:byte;
Begin
    write('Введите слово: ');readln(x);
    k:=0;
    For i:=1 to Length(x) do
     if (x[i]='y')and(i mod 2 <> 0) then inc(k);
    if k>0 then writeln('Букв "y" стоящих на нечетных местах: ',k)
     else writeln('Букв "y" стоящих на нечетных местах нет');
    readln;
End.

Var x:String;
    i,k,ik:byte;
Begin
    write('Введите слово: ');readln(x);
    k:=0;
    For i:=1 to Length(x) do
     if x[i]='л' then 
     Begin
       ik:=i;
       break;
     End;
    if ik>0 then
     For i:=ik to Length(x) do
      if x[i]='о' then inc(k);
    if k>0 then writeln('Букв "о",стоящих после буквы "л": ',k)
     else writeln('Букв "о",стоящих после буквы "л" нету или нету буквы "л"');
    readln;
End.

var i,cnt:integer; s:string;
begin
writeln ('vvedite slovo');
readln(s);
for i:=1 to length(s) do
if s[i] = 'k' then inc(cnt);
writeln('bykva povtoryaetsa ',cnt,' raz');
end.

if s[i] = 'к' then inc(cnt);
if s[i] = 'л' then inc(cnt);

if s[i] in ['к', 'л' then inc(cnt);