Дана строка-предложение на английском языке. Преобразовать строку так, чтобы каждое слово начиналось с заглавной буквы (программа Паскаль)

Question

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

Answer 1

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.