Можете ли вы помочь, пожалуйста? Поставил тридцать баллов.

Напишите на языке "Паскаль" программу, которая позволит решить следующую задачу - Дано четырёхзначное число, найти в нём число тысяч, десятков и единиц.

var
  v: integer;
  qth, qtn, qltn: integer;
begin
   writeln('Введите четырёхзначное число');
   readln(v);
   qth:=v div 1000;
   v:=v-qth*1000;
   qtn:=v div 100; v:=v-qtn*100;
   qtn:=v div 10;  
   qltn:=v-qtn*10;
   writeln('Число тысяч ',qth,'; Число десятков ',qtn, '; Число единиц ',qltn);
   readln;
end.

{---Пример-----}
Четырёхзначное число 5342
Число тысяч 5
Число десятков 4
Число единиц 2