Question

Модифицируйте программу так, чтобы печатались только:
а) слова, начинающиеся на букву «л»;
б) слова, заканчивающиеся на букву «ь»;

Код программы:
var
stroka, slovo : string;
i : integer;
begin
var b:=['a'..'z','A'..'Z','а'..'я','А'..'Я'];
WriteLn('Введите строку из русских слов с любыми разделителями ');
ReadLn(stroka);
stroka:=trim(stroka);
stroka:=stroka + '.'; // В конец строки поставим точку для того,
// чтоб гарантировать обязательное завершение программы
i:= 1; // рассматривать строку будем с первой буквы
while Length(stroka) <> 0 do
begin
if pos(copy(stroka,i,1),' ,.?!-:;') <> 0 then
{если i-ый символ из строки stroka содержится в строке ' ,.?!-:;', то}
begin
slovo := copy(stroka,1,i-1); // копируем слово
writeln(slovo); //печатаем его
delete(stroka,1,i-1); // Удаляем его из текста
while (length(stroka)>0)and (not(stroka[1] in b)) do
delete(stroka,1,1); // удаляем все разделители до следующего слова
i := 1; // снова рассматриваем слово с первого символа
end
else i := i+1; // определяем следующий символ
end;
end.

Answer 1

Нужно добавить всего-то 1 строку:
...
if pos(copy(stroka,i,1),' ,.?!-:;') <> 0 then 
{если i-ый символ из строки stroka содержится в строке ' ,.?!-:;', то}
begin 
slovo := copy(stroka,1,i-1); // копируем слово
If (slovo[1]='л') or (slovo[Length(slovo)]='ь') then Writeln(Slovo);
delete(stroka,1,i-1); // Удаляем его из текста
while (length(stroka)>0)and (not(stroka[1] in b)) do 
delete(stroka,1,1); // удаляем все разделители до следующего слова
i := 1; // снова рассматриваем слово с первого символа
end
....