Переделать код с циклом while-do на repeat-until(Pascal)

[Sting95]

Есть код с циклом while-do:

uses crt;

var n, d, r, s: integer;
begin
  write('n = ');
  readln(n);
  s := 0;
  d := 1;
  while n <> 0 do
    begin
      r := n mod 10;
      if r <> 0
        then begin
          s := s + r * d;
          d := d * 10
        end;
      n := n div 10
    end;
  writeln('s = ', s);
  readln
end.

нужно этот же код переделать под цикл repeat-until.

[Dush]

uses crt;

var n, d, r, s: integer;
begin
  write('n = ');
  readln(n);
  s := 0;
  d := 1;
  repeat
      r := n mod 10;
      if r <> 0
        then begin
          s := s + r * d;
          d := d * 10
        end;
      n := n div 10
    until n=0;
  writeln('s = ', s);
  readln
end.

[Sting95]

спасибо большое!