Склавиатуры вводится натуральное число. найдите предпоследнюю цифру(составить программу в abc pascal )

Uses crt;
var x:integer;s,s1:string;
begin
write('натуральное число = ');
readln(x);s:=inttostr(x);
s1:=copy(s,length(s)-1,1);
writeln('Предпоследняя цифра = ',s1);
end.