program raf105;
var
s,word1: string;
s2:array of string;
i,pointcount: integer;
begin
write('Введите искомое слово: ');
readln(word1);
writeln('Введите строку с предложениями, которые заканчиваются точкой');
readln(s);
for i:=1 to length(s) do
if s[i]='.'
then pointcount:= pointcount + 1;
writeln;
writeln('Предложения в которых найдено искомое слово:');
s2:= s.ToWords(#46);
for i:=0 to pointcount-1 do
if s2[i][1]=' '
then delete(s2[i],1,1);
if pos(lowercase(word1),lowercase(s2[i])) <> 0
then writeln(s2[i],'.');
end.
program raf105;
var
s,word1: string;
s2:array of string;
i,pointcount: integer;
begin
write('Введите искомое слово: ');
readln(word1);
writeln('Введите строку с предложениями, которые заканчиваются точкой');
readln(s);
for i:=1 to length(s) do
if s[i]='.'
then pointcount:= pointcount + 1;
writeln;
writeln('Предложения в которых найдено искомое слово:');
s2:= s.ToWords(#46);
for i:=0 to pointcount-1 do
if s2[i][1]=' '
then delete(s2[i],1,1);
for i:=0 to pointcount-1 do
if pos(lowercase(word1),lowercase(s2[i])) <> 0
then writeln(s2[i],'.');
end.
PascalABC 3.4.2