строки

[Olgaandsasha]

Дано натуральное число N. определить количество цифр в этом числе. определить сумму цифр.
начало как то так, а что дальше. подскажите пожалуйста

Program olga;
var
N1, N, i, kol, sum: Integer;
C: String;
begin 
write('N=');
readln(N);
Str(N,C);
kol:=0;
for i:=1 to Length(C) do......

[GetMax]

Если делать как вы начали и представить число в виде строки, то выглядеть это будет так

var
N1, N, i, kol, sum,error: Integer;
C: String;
Begin
   write('N=');
  readln(N);
  Str(N,C);
  kol:=Length(C);
  Writeln(kol);
  Sum:=0;
  for i:=1 to Length(C) do
  Begin
    Val(C[i],N1,Error);
    if Error = 0 then Sum:=Sum+N1;
  End;
   Writeln(Sum);
End.

P.S. Не уверен, что преподаватель хотел увидеть именно работу со строками

[Poma][a]

for i := 1 to Length(c) do

зачем еще раз вычислять длину строки если у вас она уже вычислена в переменной kol?
и зачем переводить строку в число, если есть число не в строке? (используйте div и mod)

[Olgaandsasha]

мне как раз нужно сделать это через строки

[Olgaandsasha]

а как блок-схему сделать?