По всей видимости тут нужно реализовать обычный "столбик", который во 2-ом классе изучали. Вспомните, порисуйте на листочке, попробуйте разные числа, и переведите на код.

Заводите 2 переменных String в ней будут числа. Результат будет в переменной такого же типа. Пробегаете всю строку и получаете каждый символ s[i], а дальше уже думайте, там надо алгоритм изобретать.

begin
for i := 1 to 200 do
ODC:= ODC+ IntToStr(RandomRange(0, 10));
label1.caption:=ODC;
end;

procedure TForm1.Button2Click(Sender: TObject);
var ODC,b,k: String; //s:real;
var i, n, l, s, m: Integer;
begin
n:=strtoint(Edit1.Text);
s:=0;
repeat
m:=n mod 10;
n:=n div 10;
s:=s+1;
until n=0;

k:=inttostr(n);
b:=copy(ODC, Length(ODC)-s,s);
if b<k then
b:=copy(ODC, Length(ODC)-s-1,s);
end;

вот ход моих мыслей, осталось дело за малым это вычитание, по идее L:=b-k, вот хочу узнать совета...

Я вот это не совсем пойму зачем. Подсчет количества символов?

А дальше идет это:

Но ведь n будет всегда 0, так как условие выхода из цикла n=0;

Ну а теперь про L:=b-k.
b и k - строки. Как вычесть? Но ведь в этих переменных хранятся символы-цифры? Ну я бы начал с такого:

procedure TForm1.Button2Click(Sender: TObject);
тут тоже

Следовательно нажав 1 кнопку, в локальной переменной что-то будет. Нажав вторую кнопку, эта переменная будет не та которая в процедуре клика первой кнопки.