помогите написать программку на языке паскаль 1. вывести все числа от

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