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

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

var b, i: integer;
begin
  repeat
    writeln('Vvedite celoe chislo > 0');
    readln(b);
    if (b <= 0) then
      writeln('Error')
    else
      for i := 1 to b do
        write(i,' ');
  until(b <= 0);
  readln();
end.