С клавиатуры вводится натуральное число 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