ODC в Delphi

[Natali_23]

Здравствуйте, помогите найти ошибку, нужно вычесть короткое целое из ОченьДлинногоЦелого.

procedure TForm1.Button1Click(Sender: TObject);
var ODC, b: String;   s:real;
var i, n, o,  m: Integer;

begin
  for i := 1 to 200 do //Формируем переменную до 200 символов
    ODC:= ODC+ IntToStr(RandomRange(0, 10)); //Прибавляем к переменной случайную цифру
  label1.caption:=ODC;
end;

procedure TForm1.Button2Click(Sender: TObject);
var ODC,b, R, k: String;   //s:real;
var i, n, h, p, c, l, s,  m: Integer;
begin
n:=strtoint(Edit1.Text);
p:=n;
s:=0;
  repeat
  m:=n mod 10;
  n:=n div 10;
  s:=s+1;
  until n=0;
k:=inttostr(p);
b:=copy(ODC, Length(ODC)-s,s);
h:=strtoint(b);
   repeat
     c:=h mod 10;
     h:=h div 10;
     until h=0;
  if c<m then
   b:=copy(ODC, Length(ODC)-s-1,s);

l:=strToInt(b) - strToInt(k);
R:=ODC+inttostr(l);
label2.caption:=R;

end;