Преобразовать строку так, чтобы каждое слово начиналось с заглавной буквы

program zzz;
var s:string;
procedure bolshiebukvi(var s:string);
var i:integer;
begin
for i:=1 to length(s) do
if s[i] in ['à'..'ï'] then s[i]:=chr(ord(ord(s[i])-40))
else if s[i] in ['ð'..'ÿ'] then s[i]:=chr(ord(ord(s[i])-90))
else if s[i]='¸' then s[i]:='¨';
end;
begin
write ('Bilo');
Readln (s);
bolshiebukvi(s);
Writeln('Stalo ', s);
end.

program zzz;
uses crt;
const rb=['а'..'п','р'..'я','ё'];
function Up(c:char):char;
begin
if c in ['а'..'п'] then Up:=chr(ord(c)-32)
else if c in ['р'..'я'] then Up:=chr(ord(c)-80)
else if c='ё' then Up:='Ё';
end;
var s:string;
    i:byte;
begin
clrscr;
writeln('Bilo');
Readln (s);
for i:=1 to length(s) do
if (s[i] in rb)and((i=1)or(s[i-1]=' ')) then s[i]:=Up(s[i]);
writeln('Stalo ');
write(s);
readln
end.

if s[i] in ['а'..'п'] then s[i]:=chr(ord(ord(s[i])-32))
else if s[i] in ['р'..'я'] then s[i]:=chr(ord(ord(s[i])-80))