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

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

Пользователь по запросу программы вводит в цикле целые положительные числа, до тех пор пока не введет число большее 30. В ответ на каждое введенное пользователем число выводите все числа от 1 до этого введенного числа m.
При этом:
за выводит чисел от 1 до $m должна отвечать процедура
получение значения должно проходить в теле основной программы

program u141z6;
var m: integer;

procedure p6(b:integer);
var a,i: integer;
begin
  for i:=1 to b do
  writeln (i);
end;

begin
  repeat
    writeln('Vvedite chislo');
    readln(m);
    p6(m);
  until m>30;
readln();
end.