Cоставить программу в паскале: напечатать первые n натуральных чисел. n вводится с клавиатуры. только с оператора repeat

Var n,a:integer;
Begin 
a:=1; 
   write('Введите n:'); readln(n); 
         repeat 
    write(a,', '); 
    a:=a+1; n:=n-1; 
        until(n=0);
End.