Указать слова, которые содержат хотя бы одну букву К

uses crt;
const rzd=[',',';',':','!','?','.'];{разделители можно добавить, зависит от текста}
var  s,s1:string;
     k,i: integer;
begin
clrscr;
write('s = ');
readln(s);
s:=s+','; {добавим запятую в конец}
for i:=length(s) downto 1 do
  begin
    if s[i] in rzd then s[i]:=',';{заменим разделители на запятые}
    while pos(',,',s)>0 do   {если подряд 2 запятые}
    delete(s,pos(',,',s),1); {1 удаляем}
  end;
writeln('Слова, содержащие букву К:');
k:=0;
while pos(',',s)>0 do {пока есть запятые}
 begin
  s1:=copy(s,1,pos(',',s)-1);{копируем первое слово в массив}
  if(pos('K',s1)>0)or(pos('К',s1)>0)then
   begin
    k:=1;
    write(s1,' ');
   end;
  delete(s,1,pos(',',s));{удаляем его}
 end;
if k=0 then write('Таких слов нет');
readln
end.

uses crt;
const rzd=[' ',',',';',':','!','?','.'];{разделители можно добавить, зависит от текста}
var  s,s1:string;
     k,i: integer;
begin
clrscr;
write('s = ');
readln(s);
s:=s+','; {добавим запятую в конец}
for i:=length(s) downto 1 do
  begin
    if s[i] in rzd then s[i]:=',';{заменим разделители на запятые}
    while pos(',,',s)>0 do   {если подряд 2 запятые}
    delete(s,pos(',,',s),1); {1 удаляем}
  end;
writeln(s);
writeln('Слова, содержащие букву К:');
k:=0;
while pos(',',s)>0 do {пока есть запятые}
 begin
  s1:=copy(s,1,pos(',',s)-1);{копируем первое слово в массив}
  if(pos('K',s1)>0)or(pos('К',s1)>0)then  //здесь 1 раз в латинской раскладке, 2й раз в русской
   begin
    k:=1;
    write(s1,' ');
   end;
  delete(s,1,pos(',',s));{удаляем его}
 end;
if k=0 then write('Таких слов нет');
readln
end.

 write(s1,',');