Определить, в каком из введенных слов больше заглавных букв

uses crt;
type mystring=string[3];
function Bolshe(s1,s2:mystring):integer;
var i,k1,k2:byte;
begin
k1:=0;k2:=0;
for i:=1 to 3 do
 begin
  if s1[i] in ['A'..'Z','А'..'Я','Ё'] then inc(k1);
  if s2[i] in ['A'..'Z','А'..'Я','Ё'] then inc(k2);
 end;
if k1>k2 then Bolshe:=1
else if k1<k2 then Bolshe:=2
else Bolshe:=0
end;
var s1,s2:mystring;
    i,k:integer;
    c:char;
begin
clrscr;
write('Введите первое слово из 3х букв, в том числе заглавных: ');
s1:='';
i:=0;
repeat
c:=readkey;
i:=i+1;
write(c);
s1:=s1+c;
if i=3 then writeln;
until i=3;
write('Введите второе слово из 3х букв, в том числе заглавных: ');
s2:='';
i:=0;
repeat
c:=readkey;
i:=i+1;
write(c);
s2:=s2+c;
if i=3 then writeln;
until i=3;
k:=Bolshe(s1,s2);
case k of
0:write('Заглавных букв поровну');
1:write('В первом слове больше заглавных, чем во втором');
2:write('Во втром слове больше заглавных, чем в первом');
end;
readln
end.