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

Вложенные циклы. Часть 2

{13.2 — 4 Счёты. визуализируйте на счетах введенное пользователем число.
(28):
---++++++++++
---++++++++++
---++++++++++
---++++++++++
---++++++++++
++---++++++++
++++++++---++}

var num,digit,num_reverse,num_lenght,n,m: integer;
begin
  writeln('write your num ');
  readln(num);
  while num > 0 do
    begin
      digit:= num mod 10;// последняя цифра числа
      num:= num div 10; // соркащение на разаряд
      num_reverse:= num_reverse * 10 + digit; //  отзеркаливание
      num_lenght := num_lenght + 1;       //  подсчёт длины
    end;
  while num_reverse > 0 do
    begin
      for n:=7 downto 1 do  // строки = разряды
        begin
          if (n = num_lenght) then   // если подходящий разряд
            begin
              for m:=1 to 10 do // числа
                begin
                  if(m <= digit) then
                    write('+ ')
                  else
                    write('- ');
                end;
              num_lenght := num_lenght - 1;
              num_reverse:= num_reverse div 10;
              digit:= num_reverse mod 10;
            end
          else
            for m:=1 to 10 do // числа
              write('- ');
          writeln();
        end;
    end;
  readln();
end.

//write your num
//92456
//- - - - - - - - - -
//- - - - - - - - - -
//+ + + + + + + + + -
//+ + - - - - - - - -
//+ + + + - - - - - -
//+ + + + + - - - - -
//+ + + + + + - - - -