Паскаль Дано естественное число.Отыскать первую и заключительную цифру

program first_last;
var m,l: integer;
begin
writeln(Введите натуральное число: );
readln(m);
l := m mod 10; //l поcледняя цифра числа
while m gt; 10 do m:= m div 10;//в конце цикла m будет одинаково первой цифре
writeln();
writeln (Первая цифра числа: , m);
writeln (Заключительная цифра числа: , l)
end.