Работа со строками. Вывод слов только с заглавными буквами.

[snusmumr]

И снова здравствуйте. Нужен еще волшебный пинок

вот задача

Дана последовательность символов (строка S). Словом текста считается любая последовательность букв русского алфавита. Найти и вывести все слова текста, которые содержат только БОЛЬШИЕ буквы алфавита.

ну и ее

uses crt;
var pr, sl: string;
  s1,j,  i, k: integer;
begin
clrscr;
writeln( 'vvedite tekst ');
readln(pr);
i:=1;
k:=length(pr);
 While i<=k do
   begin
    sl:=copy(pr,1,pos(' ',pr)-1);
    writeln(i, ' slovo: ',sl); 
              {это для наглядности выводит каждое слово}
      s1:=1;
      j:=1;
      while j <= length(sl) do
        begin
          if ((ord(sl[j])) >= 128) and ((ord(sl[j])) <= 159) then
             begin
             s1:=s1+1;
             j:=j+1;
             end;
         if s1= length(sl) then writeln(sl);
         delete(pr,1,length(sl)+1);
          writeln('ostatok: ',pr); 
              {то что остается после обнаружения 1 слова}
        end;
       k:=length(pr);
        i:=i+1;
       end;
readln;
end.

Но проблема в том, что цикл выполняется коряво, для примера, если написать ООО пп АА, то он выведет только ООО, а остальное запишет в остаток.

[denisbrain]

function UpperCase(const S: string): string;
var
Ch: Char;
L: Integer;
Source, Dest: PChar;
begin
L := Length(S);
SetLength(Result, L);
Source := Pointer(S);
Dest := Pointer(Result);
while L <> 0 do
begin
Ch := Source^;
if (Ch >= 'a') and (Ch <= 'z') then Dec(Ch, 32);
if (Ch >= 'а') and (Ch <= 'я') then Dec(Ch, 32);
Dest^ := Ch;
Inc(Source);
Inc(Dest);
Dec(L);
end;
end;

[snusmumr]

Так-то конечно легче, но мне нужно делать это все с простейшими строковыми операциями, язык Турбо Паскаль

if (Ch >= 'a') and (Ch <= 'z') then Dec(Ch, 32);

а здесь зачем английские? там ведь только заглавные русские.

Ch := Source^

а зачем здесь знак ^?
я ж только начинающий, такие штуки мне не известны

[FieStik]

что это за uses crt?

[snusmumr]

это открытие библиотеки, которая будет очищать экран при каждом запуске программы
uses crt;
...
begin
clrscr;
...

[snusmumr]

ну ответьте хоть кто-нибудь

[Валлидол]

Попробуйте примерно вот так
Код:

uses crt;
var s,st:string;
    i,k,j:integer;
begin ClrScr;
writeln('Введите текст ');
readln(s);
s:=s+' ';
st:='';
writeln;
Writeln('Слова содержащие только заглавные буквы');
for i:=1 to length(s) do
   if s[i] in ['А'..'я'] then 
                             st:=st+s[i]
                          else begin
                         k:=0; 
                         for j:=1 to length(st) do
                             if st[j] in ['А'..'Я'] then k:=k+1;
                         if (k=length(st)) and ((st<>'')) then writeln(st);
                         st:='';
                               end;
readln;
end.