Не могу разобратся с регистром (считает либо Ж или ж )
Может Вы поможете в дополнении программы
program slova;
Uses Crt;
var
stroka, slovo : string;
i,k : integer;
begin
ClrScr;
WriteLn('Введите строку ');
TextColor(Cyan);
ReadLn(stroka);
stroka:=stroka + '.';
i:= 1; TextColor(LightGreen);
while Length(stroka) <> 0 do
begin
if pos(copy(stroka,i,1),' ,.?!-:;') <> 0
then begin
slovo := copy(stroka,1,i-1);
if slovo[1]='ж' then
writeln(slovo);
delete(stroka,1,i);
i := 1;
end
else i := i+1;
end;
end.