Визуализация перевода из десятичной в двоичную систему счисления

uses GraphABC;
 
const
  fntSize = 20;
  smlSize = 10;
 
procedure DrawTXT(s : String; size : Integer; var x, y : Integer);
begin
  Font.Size := size; TextOut(x, y, s); x += TextWidth(s);
end;
 
var h : Integer;
 
procedure DrawDel(n, x, y : Integer);
begin
  var(w,v) := (TextWidth(n.ToString)*3 div 2,TextWidth((n shr 1).ToString)*3 div 2);
  if n = 1 then
    begin
      Font.Color := clBrown;
      DrawTextCentered(x, y, x + w, y + h, n and 1);
      Exit;
    end;
  Line(x + w, y, x + w, y + h*2); Line(x, y + h*2, x + w, y + h*2);
  Line(x + w, y + h, x + v + w, y + h);
  Font.Color := clBlack; DrawTextCentered(x, y, x + w, y + h, n);
  DrawTextCentered(x, y + h, x + w, y + h*2, n shr 1 shl 1);
  DrawTextCentered(x + w, y, x + v + w, y + h, 2);
  Font.Color := clBrown; DrawTextCentered(x, y + h*2, x + w, y + h*3, n and 1);
  DrawDel(n shr 1, x + w, y + h);
end;
 
begin
  Window.Width := 1100; Window.Height := 800;
  var n := ReadLnInteger; if n < 1 then Halt;
  var(b,x,y) := (System.Convert.ToString(n, 2), 10, 10); Font.Size := fntSize;
  h := TextHeight('1'); var y1 := y + h; Font.Size := smlSize; y1 -= TextHeight('1');
  DrawTXT(n.ToString, fntSize, x, y); DrawTXT('10', smlSize, x, y1);
  DrawTXT(' = ' + b, fntSize, x, y); DrawTXT('2', smlSize, x, y1);
  (x,y) := (10,60); Pen.Width := 2; Font.Size := fntSize; DrawDel(n, x, y);
end.