Задача на строковые функции в Delphi...

[Leprechaun]

Необходимо выбрать из текста слова, содержащие заглавные буквы и отдельно вывести их. Подскажите, пожалуйста, хотя бы по какому алгоритму ее сделать и в куда лучше вводить текст (Memo или Edit).

[alex_fcsm]

Программа на Паскале из строки вытаскивает слова а затем ищет в них БОЛЬШИЕ буквы

uses crt;
var s,sub:string;
    i,n,j:integer;
    a:array[1..100] of string;
    flag:boolean;

begin
clrscr;
writeln('Input str');
readln(s);
i:=0;n:=0;
repeat
inc(i);
if (s[i]=' ')and(s[i+1]<>' ') then begin
                   inc(n);
                   a[n]:=sub;
                   sub:='';
                   end
else if (s[i]<>' ')and(s[i]<>'.') then sub:=sub+s[i];
until i=length(s);
if sub<>'' then begin
inc(n);
a[n]:=sub;
end;
writeln;
for i:=1 to n do
 begin
  flag:=false;
  for j:=1 to length(a[i]) do
   if a[i][j] in['A'..'Z'] then flag:=true;
   if flag then writeln(a[i]);
 end;
end.

[Leprechaun]

Благодарю...