Определить, сколько слов оканчивается буквой К

uses crt;
var
   i,k:integer;
   s:string;
 
begin
     clrscr;
     readln(s);
     k:=0;
     for i:=1 to length(s) do
         if (s[i]=' ')and (s[i-1]='k') then
            k:=k+1;
    if s[length(s)]='k' then
       k:=k+1;
     writeln(k);
 
     readln;
end.

uses crt;
var
   i,k,a,b:integer;
   s:string;
 
begin
     clrscr;
     readln(s);
     k:=0;
     for i:=1 to length(s) do
         begin
              if s[i]=' ' then
                 k:=k+1;
              if (k=2)and(a=0) then
                 a:=i;
              if (k=3)and(b=0) then
                 b:=i-a;
         end;
    delete(s,a+1,b);
     writeln(s);
 
     readln;
end.

uses crt;
var
   i,k:integer;
   t,a:string;
 
begin
     clrscr;
     readln(t);
     readln(a);
     readln(k);
     if k>length(t) then
        t:=t+a
     else
         t:=copy(t,1,k)+a+copy(t,k+1,length(t)-k);
     writeln(t);
     readln;
end.