две задачи на тип INTEGER и тип CHAR

[inspiron13]

две задачи на тип INTEGER и тип CHAR
1.Вводится 15 чисел. Найти сумму чисел, введённых с пятого по десятое.
2.Вводится текст. Конец ввода "?". Найти количество букв "К"

заранее спасибо)

[dosha]

var
  s:string;
  i,k:Integer;
begin
 k:=0;
 Readln(s);
 s:=Copy(s,1,Pos('?',s)-1);
 for i:=1 to Length(s) do
  if s[i]='К' then
    k:=k+1;
   Writeln(k);
 Readln
end.

[dosha]

var
  i,s,sum:Integer;
begin
 sum:=0;
 for i:=1 to 15 do
 begin
  Readln(s);
  if i>=5 and i<=10 then
   sum:=sum+s;
 end;
 Writeln(sum);
end.

[inspiron13]

спасибо большое)