Задача 6 Урок 13.1

Задача 6 Урок 13.1:

Пользователь вводит целое положительное число, если оно не соответствует критериям (то есть не является положительным), выведите сообщение об ошибке, в противном случае выведите на экран все числа от 1 до введённого пользователем.

var a,b:integer;
begin
  repeat
    writeln ('vvedite chislo');
    readln (a);
     b:=1;
     while b<=a do
       begin
         write(b,' ');
         b:=b+1;
       end;
    writeln();
    until a<=-1;
  writeln('Error');
  readln();
end.  

Вывод консоли:

vvedite chislo
20
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
vvedite chislo
-1
Error