Дан текст содержащий полное название организации. Получить аббревиатуру этой организации. В названии могут встречаться слова с маленькой буквы. В аббревиатуре все буквы должны быть заглавные — Pascal(Паскаль)

uses crt;
procedure Up(var s:string);
var i:integer;
begin
for i:=1 to length(s) do
 begin
  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))
  else if s[i]='ё' then s[i]:='Ё'
  else if s[i] in ['a'..'z'] then s[i]:=Upcase(s[i]);
 end;
end;
var s,s1:string;
    i:byte;
begin
clrscr;
writeln('Введите полное название организации:');
readln(s);
s1:='';
for i:=1 to length(s) do
if(i=1)or((s[i-1]=' ')and(s[i]<>' '))
then s1:=s1+s[i];
Up(s1);
write(s1);
readln
end.