Подсчитать количество слов, состоящих только из заглавных латинских букв

var x: array ['A'..'Z'] of char;
 s:string;
    schet_slov,i:integer;
begin
writeln('строка:');
readln(s);
s:=' '+s;
//k:=0;
for i:=1 to length(s) do
 if (s[i]=' ') 
 then schet_slov:=schet_slov+1;
 writeln(k);
end.

//  (c) UI [url]https://www.cyberforum.ru/post6092933.html[/url]
//
begin
  var CountLetter : integer := 0; {количество слов ссостоящих только из прописных латинских букв }
  var s : string := 
      '2015 news - Barak OBAMA IS stupid';
      {var arr := new string[3](' ', '-', '"'); // Сюда можно добавить еще разделителей... }
  foreach st : string in s.Split(new string[1](' '), System.StringSplitOptions.RemoveEmptyEntries) do
  begin
    var count : integer := 0;
    foreach ch : char in st do
        if ch in ['A'..'Z'] then Inc(count);
    if count = Length(st) then begin 
       Inc(CountLetter);
       writeln('*Debug* found word: ',st);
    end;   
  end;
  WriteLn('All count word ', CountLetter)
end.

foreach st : string in s.Split(new string[1](' '), System.StringSplitOptions.RemoveEmptyEntries) do

{$reference System.Core.dll}
uses System.Linq, System.Text.RegularExpressions;
  
begin
  var s : string := 
      '2015 NEWS - Barak OBAMA IS stupid';
  var all := s.Split('  '.ToCharArray(), System.StringSplitOptions.RemoveEmptyEntries).
    Where((s : string) -> System.Text.RegularExpressions.Regex.IsMatch(s, '^[A-Z]+$')).ToArray();
    
  writeln('words : ', string.Join(' ', all));
  writeln('count : ', all.Length);
end.