Помогите решить задачу в паскале)

Дано число . найти и вывести первую и последнюю цифру этого числа. ПРОГРАММА В ПАСКАЛЕ)

Два способа решения: через строку и через операторы mod и div (Количество цифр-фиксированное) .
Через строку:

program chislo;
var a,c:integer;
b:string;
BEGIN
writeln ('Vvedite chislo...');
readln (a);
b:=IntToStr (a); // переводим число в строку
c:=length(b); // вычисляем количество цифр
writeln ('Первая цифра... ',b[1],' Последняя цифра... ',b[c]); // выводим результаты
END.