С клавиатуры вводится натуральное число z. Вычислить: количество цифр в числе z; сумму цифр числа z; первую и последнюю цифры числа z.

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