Дано название организации (ввести с клавиатуры), вывести его аббревиатуру. — Pascal(Паскаль)

//процедура преобразования букв из нижнего регистра в верхний
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
    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);//выводим
end.