Описать процедуру AddRightDigit(D, K)...Делфи 7.

[nadyaH]

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

type
  TDig = 0..9;
procedure AddRightDigit(const d : TDig; var k : Int64);
begin
  k:=k*10+d;
end;
  var
  d : TDig;
  k : Int64;
  begin
   k:=StrToInt(edIt1.text);
   d:=StrToInt(edIt2.text);
   AddRightDigit(d,k);
   EDIT3.TEXT := IntToStr(k);
  end;END.

Что мне нужно изменить в программе , что-бы при вводе к=10 (и больше 10) программа выдавала ошибку?

[Utkin]

После:

k:=StrToInt(edIt1.text);

If (k>9) or (k<0) then Ваши действия

Вообще там мусор - сначала создаете параметры, потом тут же объявляете локальные переменные с такими же именами.

---ОБНОВЛЕННО---
Сорри, не внимательно просмотрел код. Как-то не оформлен, тяжко воспринимать. Где большие буквы, где маленькие...