Найти слова, в которых первая буква присутствует только один раз, и слова капслоком

const     
n = 200;  
 
function O (s : string) : boolean;    
var    
i,l : integer;    
c : char;    
r : boolean;  
begin   
c := s[1];   
i := 2;   
r := true;   
l := Length(s);      
 While (r) and (i <= l) do    
 begin    
  if s[i] = c then    
   r := false;    
  i := i +1;    
 end;   
Result := r;  
end;     
 
function Z (s : string) : boolean;  
var    
r : boolean;    
a,i,l : integer;  
begin   
r := true;   
l := Length(s);   
i := 1;
 While (r) and (i <= l) do 
   begin 
    a := ord(s[i]);   
     if (a<65) or (a>90) then  
      r := false;         
    i := i +1;   
  end;          
Result := r;  
end;  
 
var   
w,s : string;   
i,l : integer;      
begin  
readln (s);    
w := '';  
l := Length(s);
 
writeln ('----------------------');  
writeln ('Слова, в которых первая буква присутствует только один раз:');        for i := 1 to l do    
begin     
if (s[i] <> ' ') and (i <> l) then      
w := w + s[i]     
else      
begin      
 
//Если в конце текста точка то не нужно
  //if i = l then
  // w := w + s[i]; 
//Если последний символ - часть слова, то раскомментировать 
 
 
if O(w) then        
writeln (w);                    
w := '';      
end;    
end;  
writeln ('----------------------');  
//-------------------------------    
writeln ('Слова, в которых присутствуют только заглавные латинские буквы:');   
for i := 1 to l do    
begin     
if (s[i] <> ' ') and (i <> l) then      
w := w + s[i]     
else      
begin 
 
//Если в конце текста точка то не нужно
  //if i = l then
  // w := w + s[i]; 
//Если последний символ - часть слова, то раскомментировать 
  
if Z(w) then        
writeln (w);                    
w := '';      
end;    
end;  
end.