Что изменить чтобы не выдавало сообщение "неверное количество параметров процедуры" - Pascal

Формулировка задачи:

program qq;
procedure ll(N,k: Integer);
begin
WriteLn('Цифры числа, начиная с последней:');
for var i:=1 to k do
writeln(N mod 10:10); 
N := N div 10;
end;
begin
Var  n,m,p,k:integer;
Begin
write('n=');read(n);
m:=n;k:=0;
while m<>0 do begin
p:=m mod 10;
K:=K+1;
m:=m div 10;
end;
ll(N);
end;
end.

Решение задачи: «Что изменить чтобы не выдавало сообщение "неверное количество параметров процедуры"»

Листинг программы

program qq;
procedure ll(N,k: Integer);
begin
WriteLn('Цифры числа, начиная с последней:');
for var i:=1 to k do
 begin
  write(N mod 10,' '); 
  N := N div 10;
 end;
end; 
begin
Var  n,m,k:integer;
Begin
write('n=');read(n);
m:=n;k:=0;
while m>0 do
  begin
   K:=K+1;
   m:=m div 10;
  end;
ll(N,k);
end;
end.

Объяснение кода листинга программы

В программе объявлены три переменные: n, m, k типа Integer.
Переменная n инициализируется значением, которое считывается с помощью функции read.
Переменная m инициализируется значением переменной n.
Переменная k инициализируется значением 0.
В цикле while переменной m больше 0 выполняется следующее: 5.1. К переменной K прибавляется единица. 5.2. Переменная m делится на 10.
Вызывается процедура ll с аргументами N и k.
Значение переменной N не определено, но предполагается, что оно было получено вне участка кода, представленного в вопросе.
Если значение переменной N не является положительным числом или не является целым числом, то выводится сообщение неверное количество параметров процедуры.
В теле процедуры ll выполняется следующее: 9.1. Выводится сообщение Цифры числа, начиная с последней:. 9.2. В цикле for i:=1 to k выполняется следующее:
- Выводится значение переменной N mod 10 (последняя цифра числа N).
- Переменная N делится на 10.
Если значение переменной N не делится на 10 без остатка, то выводится сообщение об ошибке.