Вычислить сумму первых K цифр 100-значного числа

program chislo;
var i, a, :integer;
 
begin
writeln ('Количество цифр');
readln (a); 
writeln ('введите число: ');
 
i:=1;
while i>a do begin
 
i:= i + 1;
end
end.

var c:char;
     k,i,s:integer;
begin
readln(k);
s:=0;
for i:=1 to k do
 begin
  read(c);
  s:=s+ord(c)-ord('0');
 end;
write(s);
end.

Var S : String;
...
Readln(K);
Readln(S);
sum:=0;
For i:=1 to K do sum:=Sum+Ord(S[i])-Ord('0');
Writeln(sum);

begin
  var S := ReadLnString('большое число =');
  var K := ReadLnInteger('K =');
  var Sum := 0;
  for var i := 1 to Min(K, S.Length) do
    Sum += StrToInt(S[i]);
  WriteLn(Sum);
end.

readln(k); //читаем количество разрядов в числе(до 100)
s:=0;
for i:=1 to k do
 begin
  read(c);//читаем символы
  s:=s+ord(c)-ord('0'); //к сумме прибавляем код символа-код 0
                        //(например '9'->57-48=9)
 end;