Как из цикла for сделать цикл repeat-until?

program zadanie4;
uses crt;
function summ(n:longint):byte;
var m:longint;
    s:byte;
begin
s:=0;
m:=n;
while m>0 do
begin
s:=s+m mod 10;
m:=m div 10;
end;
summ:=s;
end;
var n,i:longint;
    k:byte;
begin
clrscr;
write('n='); readln(n);
k:=0;
i:=1;
for i:=1 to n-1 do
if summ(i)=summ(n) then
begin
k:=1;
write(i,' ');
end;
if k=0 then write('HET');
readkey;
end.

program zadanie4;
 
uses
  crt;
 
function summ(n: longint): byte;
var
  m: longint;
  s: byte;
begin
  s := 0;
  m := n;
  while m > 0 do
  begin
    s := s + m mod 10;
    m := m div 10;
  end;
  summ := s;
end;
 
var
  n, i: longint;
  k: byte;
 
begin
  clrscr;
  write('n='); readln(n);
  k := 0;
  i := 1;
  repeat 
    if summ(i) = summ(n) then
    begin
      k := 1;
      write(i, ' ');
    end;
    inc(i); 
  until i = n - 1; 
  if k = 0 then write('HET');
  readkey;
end.