Определить последнюю цифру заданного целого числа в pascal

Var s,t:integer;
begin
write  ('s='); readln(s);
if (s>-10) and (s<10) 
then writeln ('Число однозначное') 
else begin   
t:=s mod 10;   
writeln (abs(t));   
end; 
end.