Помогите доработать программу, пожалуйста. Дана строка. Указать те слова, которые содержат хотя бы одну букву к.

[quakenez]

var s,s1: string;
i,l: integer;
begin
write('Введите строку: ');
readln(s);
l:=Length(s);
for i:=1 to l do begin
if s[i]='к' then
s1:=s1+s[i];
end;
writeln(s1)
end.

[Arigato]

У вас нет разбиения на слова. Как идея, что-то такое:

s:=s+' ';
w:='';
k:=false;
for i:=1 to l do begin
  if s[i]<>' ' then begin
    w:=w+s[i];
    if s[i]='к' then k:=true;
  end else begin
    if k then writeln(w);
    w:='';
    k:=false;
  end;
end;

[newerow1989]

var s,s1: string;
    i,l: integer;
begin
   write('Введите строку: ');
   readln(s);
   s:=s+' ';
   l:=Length(s);
   s1:='';
   for i:=1 to l do begin
      if s[i]<>' ' then
         s1:=s1+s[i] else
      begin
         if Pos('к', s1)>0 then
            Writeln(s1);
         s1:='';
      end;
   end;
   writeln(s1);
   Readln;
end.

[digitalis]

А если разделитель - не пробел, а к примеру , ?

[newerow1989]

Тогда нужно применять множество, например, ['а'..'я'] со всеми вытекающими

[Arigato]

Сообщение от digitalis

А если разделитель - не пробел, а к примеру , ?

По правилам, после знака препинания всё равно надо ставить пробел.

[digitalis]

По-моему, это правило вёрстки, а не языка Например, в языке нет такого правила " 'убрать коридор' ", а корректор, заметив его в соседних строках, обязательно пометит его соответствующим знаком.
Впрочем, я опять, кажется, сваливаюсь в оффтоп.
newerow1989 тогда прога не будет универсальной, ей потребуется алфавит конкретного языка.
Ну да мы же о студенческих задачках.....

[Arigato]

Сообщение от digitalis

По-моему, это правило вёрстки, а не языка

В правилах вообще нет понятия пробела. Интересно, а есть ли в правилах указание на счет того, как слова должны отделяться друг от друга? Ведь символа "пробел" в алфавите нет, и знака препинания такого тоже нет.

[digitalis]

Да кто ж его знает... Я никогда не видел этих правил. Так как-то всё, по интуёвине..