Написать программу на языке паскаль 1. вывести все числа от 1 до 10 с while; 2. вывести все числа от 1 до 10 с repeat

Var
a,b:integer;
begin
a:=0;
b:=0;
 //Вывод через while
   while a<>10 do
    begin
     inc(a);
     write(a,' ');
    end;
     writeln('');
      //Вывод через repeat 
      repeat
       begin
        inc(b);
        write(b,' ');
       end;
      until b=10;
end.