Необходимо дописать программу

Из условия задачи возьмем известные нам факты:
1. Борис бывает в Бобруйске лишь проездами и то, весьма редко, хотя все его родственники живут в этом городе.
2. У двоих из этих людей названия профессий и городов, в которых они живут, начинаются с той же буквы, что и имена.
3. Жена аптекаря приходится Борису младшей сестрой.

Совместив эти факты получаем что:
4. Борис не живет в Бобруйске и что он не аптекарь.
5. Жена аптекаря - сестра Бориса => Аптекарь живет в Бобруйске, так как все родственники Бориса там живут.

Используя все факты выводим,что Андрей - из Архангельска (оперируя фактом №2) , а так как он не из Бобруйска - он не аптекарь, а значит он агроном, следуя фактам (№2 и №5).
Следуя факту №4 получаем,что Борис живет в Белгороде и работает бухгалтером.
Остается Бронислав, который живет в Бобруйске и по профессии аптекарь.  
Доказательством решения является то,что ни один из фактов не нарушен.

Андрей - Агроном - Архангельск
Бронислав - Аптекарь - Бобруйск
Борис - Бухгалтер - Белгород

var l,k:char; m,s:string; n,i,a:integer; begin read(s); l:=s[1]; if ((ord(l)>223) and (ord(l)<256))or((ord(l)>96) and (ord(l)<122)) then begin a:=ord(l)-32;if a<>0 then begin k:=chr(a);if k<>'0' then m:=m+copy(k,1,1) end; end  else begin if  ord(l)=44 then n:=n+1; m:=m+l; end; l:=s[2]; if ((ord(l)>223) and (ord(l)<256))or((ord(l)>96) and (ord(l)<122)) then begin a:=ord(l)-32;if a<>0 then begin k:=chr(a);if k<>'0' then m:=m+copy(k,1,1) end; end  else begin if  ord(l)=44 then n:=n+1; m:=m+l; end; l:=s[3]; if ((ord(l)>223) and (ord(l)<256))or((ord(l)>96) and (ord(l)<122)) then begin a:=ord(l)-32;if a<>0 then begin k:=chr(a);if k<>'0' then m:=m+copy(k,1,1) end; end  else begin if  ord(l)=44 then n:=n+1; m:=m+l; end; l:=s[4]; if ((ord(l)>223) and (ord(l)<256))or((ord(l)>96) and (ord(l)<122)) then begin a:=ord(l)-32;if a<>0 then begin k:=chr(a);if k<>'0' then m:=m+copy(k,1,1) end; end  else begin if  ord(l)=44 then n:=n+1; m:=m+l; end; l:=s[5]; if ((ord(l)>223) and (ord(l)<256))or((ord(l)>96) and (ord(l)<122)) then begin a:=ord(l)-32;if a<>0 then begin k:=chr(a);if k<>'0' then m:=m+copy(k,1,1) end; end  else begin if  ord(l)=44 then n:=n+1; m:=m+l; end; l:=s[6]; if ((ord(l)>223) and (ord(l)<256))or((ord(l)>96) and (ord(l)<122)) then begin a:=ord(l)-32;if a<>0 then begin k:=chr(a);if k<>'0' then m:=m+copy(k,1,1) end; end  else begin if  ord(l)=44 then n:=n+1; m:=m+l; end; writeln(m); writeln(n); end.