Простенькая задача в Делфи: разбор натурального числа

[Fantazerishka]

Одна знакомая попросила помочь с задачкой, однако сам я увлекался программированием пару лет назад, поэтому запутался и теперь жутку туплю и не знаю с чего мне начинать, прошу подпнуть меня на путь истинный.
Задача: Натуральное число Х, задано в режиме диалога. Определить сколько цифр в числе. Найти и напечатать первую и последнюю цифры числа.
Я бы и сам перечитал все самоучители и авось допер бы, однако ей её надо сдавать уже завтра, поэтому прошу подпнуть как можно скорее, заранее спасибо или заранее извиняюсь за глупую тему))

[ОДИНОЧЕСТВО В СЕТИ]

var x:string;
begin
writeln('vvedite x');
readln(x);
writeln('cifr v chisle ',length(x));
writeln('1-ya',x[1]);
writeln(' poslednaya',x[length(x)]);
readln;
end;

это так наскоряк! а по уму Div и mod тебе в помощь!

var x,k,l,z : longint;
begin
readln(x);
k := 0;
l:=x mod 10;
while x>0 do
 begin
 x := x div 10;
 inc(k);
 if x<>0 then
 z:=x;
 end;
writeln(k);//кол-во
writeln(z);//1-ая
writeln(l);//последняя
readln;
end.

[russian-stalker]

Чисел в числе:

length(Inttostr(chislo))

Первое число:

Copy(inttostr(chislo),1,1);

Последнее

Copy(inttostr(chislo),length(inttos tr(chislo)),1);

[Fantazerishka]

Огромное вам спасибо, сам я как-то про length забыл напрочь, но так как она первый курс постораюсь состряпать с помощью div и mod))
Ещё раз огромное спасибо и чмоки от Катьки)
П.С. как плюсики ставить?)

[Stilet]

П.С. как плюсики ставить?)

На весы нажимай, возле красной и желтой карточки, только не перепутай.