Напишите функцию в Паскале, которая выводит на экран в столбик все

procedure Proc1(n, i: integer);  //  процедура вывода на экран чисел от 1 до n
  begin
       for i:= 0 to n do               // начало цикла
         begin
            writeln(i);                   // вывод на экран числа при каждом проходе цикла
         end
  end;    

// начало главной программки

var
   n: integer;
begin
     writeln(Введите число: );   // вывод на экран текстовой строки
     readln(n); // считываем переменную - макс. значение, до которого будем выводить числа
     Proc1(n,0);                         // вызов процедуры
end.