Дано натуральное n. Определите: (а) количество цифр в числе n; (б) сумму цифр числа n; (в) первую цифру числа n — Pascal(Паскаль)

program hhh;
Uses crt;
Var n:longint;
    s:string;
    mas:array[1..100] of integer;
    i,c,e,k,sum,h:integer;
begin
clrscr;
writeln (' Vvedite chislo ');
Readln (n);
str (n,s);
for i:=1 to length(s) do begin
                         Val (s[i],c,e);
                         mas[i]:=C;
                         end;
writeln;
for i:=1 to length(s) do
begin
k:=k+1;
sum:=sum+mas[i];
h:=mas[1];
end;
writeln ('kol-vo cifr = ',k);
writeln ('Summa cifr = ',sum);
Writeln ('Pervaja cifra = ',h);
Readln
end.