Как удалить из предложения слова, содержащие прописные буквы. (Pascal) Код.

Пример: "Привет как дела?". Нужно что слово "Привет" было удалено. И так все слова, которые имею заглавные буквы.

Pascal

var

 s : string = 'Вчера лиса Алиса пришла к коту Базилио и поинтересовалась его здоровьем.';

 i : integer;

 s1, sR : string;

begin

 s:=s+' ';

 i :=1;

 sR :='';

 s1:='';

 while i <= length(s) do begin

   if (s[i] = ' ') then begin

      if s1[1] <> UpperCase(s1[1]) then

          sR := sr + s1 + ' ';

      s1:=''

   end

   else

     s1:=s1 + s[i];

   inc(i);

 end;

 delete(sR, length(sR), 1);

 print(sR);

end.

А вот на PascalABC.Net.  заметно короче будет

begin

 var s := 'Вчера лиса Алиса пришла к коту Базилио и поинтересовалась его здоровьем.';

 var a := s.ToWords.Where(v -> (v.First <> v.First.ToUpper)).JoinIntoString();

 println(a);

end.  

pascal

Объяснение:

var k, s : string;

   i : byte;

begin

write('Введите предложение: '); readln(s);

s := s + ' '; i := 1;

while i < length(s) do begin

   if not(s[i] in 'А'..'Я') then k := k + s[i]

   else while s[i] <> ' ' do inc(i);

   inc(i);

end;

writeln(k);

end.