Сможете ли вы помочь, пожалуйста? Поставил 30 баллов.Напишите на языке "Паскаль"

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,'; Число 10-ов ',qtn, '; Число единиц ',qltn);
   readln;
end.

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