Задача 5 Урок 13.2

https://fkn.ktu10.com/?q=node/8714

В некоем виртуальном пространстве есть виртуальные, опять же, ASCII-счеты, с 7-ю спицами по 10 костяшек на каждой, в сброшенном состоянии (условный ноль) они выглядят так:

---++++++++++
---++++++++++
---++++++++++
---++++++++++
---++++++++++
---++++++++++
---++++++++++
Задание: визуализируйте на счетах введенное пользователем число.

var n, m, k, i: integer;
begin
  writeln('Vvedite chislo');
    readln(n);
    m:=10000000;
    repeat
      m:= m div 10;
      if (n div m)>10 then
        n:= n mod(m*10);
      k:=n div m;
      for i:=0 to 9 do
      begin
        if i=k then
          write('---');
        write('+');
      end;
      writeln();
    until m=1;
  readln();
end.