Процедура добавления к исходному числу введённого справа (Pascal)

[Volk_xD]

Задание:
Описать процедуру AddRightDigit(D, K), добавляющую к целому положительному числу K справа цифру D (D — входной параметр целого типа, лежащий в диапазоне 0–9, K — параметр целого типа, являющийся одновременно входным и выходным). С помощью этой процедуры последовательно добавить к данному числу K справа данные цифры D1 и D2, выводя результат каждого добавления.

Program Proc_1;
  Uses Crt;
  Var
    d,i : integer;
    k : longint;
 
  Procedure AddRightDigit(d :integer;
                          var k : longint);
    Var
    Begin
    k:=d*10+k;

    End;
 
BEGIN
  ClrScr;
  Write('Vvedite 4islo-> ');  Readln(k);
  For i:= 1 to 2 do
  Begin
    Repeat
      Write('Vvedite cifru->(0-9): ');  Readln(d);
    Until (d >= 0) and (d <= 9);
    AddRightDigit(d,k);
    Writeln('Rezultat: ',k);
  End;
  Readkey;
END.

Запутался во входных и выходных параметрах + некорректно написана сама процедура. Помогите пожалуйста

[Volk_xD]

up! Ну посмотрите, кто шарит пожалуйста, тут буквально в процедуре пару действий изменить, сам никак не додумаюсь =(

[compres]

А если так k:=k*10+d; ?

[Volk_xD]

Спасибо!!!

[sorcerer]

а можете в c# переделать эту задачу?