var 
  z,k,n,sum: integer; 
  s,a: string; 
  i: byte;
begin
  write ('Введите число: ');
  readln (z);
  Str(z,s);
  k:=length(s);
  sum:=0;
  for i:=1 to k do begin
    a:=s[i];
    n:=StrToInt(a);
    sum:=sum+n;
  end;  
  writeln ('Количество цифр в числе: ',k);
  writeln ('Сумма цифр числа: ',sum);
  writeln ('Первая цифра числа: ',s[1]);
  writeln ('Последняя цифра числа: ',s[k]);
end.

------------результат:--------------
Введите число: 567854
Количество цифр в числе: 6
Сумма цифр числа: 35
Первая цифра числа: 5
Последняя цифра числа: 4