определить сумму цифр во вторвй половине числа

uses crt;
const cf=['0'..'9'];
var s:string;
    i,k,p,sum:integer;
begin
clrscr;
repeat
k:=0;
writeln('Введите натуральное число больше 9 разрядов:');
readln(s);
for i:=1 to length(s) do
if not(s[i] in cf) then k:=1;
if (k=1)or(length(s)<10) then
writeln('Число введено неверно! Повторите ввод.');
until(k=0)and(length(s)>9);
p:=length(s) div 2;
sum:=0;
for i:=p+1 to length(s) do
sum:=sum+ord(s[i])-48;
write('Сумма младших разрядов=',sum);
readln
end.

uses crt;
const nmax=100;
var a:array[1..nmax] of real;
    n,i,kp,ko,kn:byte;
begin
clrscr;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите элементы массива, действительные числа:');
kp:=0;ko:=0;kn:=0;
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
  if a[i]>0 then kp:=kp+1;
  if a[i]<0 then ko:=ko+1;
  if a[i]=0 then kn:=kn+1;
 end;
writeln('Массив:');
for i:=1 to n do
write(a[i]:0:2,' ');
writeln;
writeln;
writeln('Количество положительных=',kp);
writeln('Количество отрцательных=',ko);
writeln('Количество нулевых=',kn);
readln
end.