مثلث خيام

[اوبالیت به بو]

سلام
من اومدم يه آرايه دو بعدي ساختم تا بتونم عناصر درون مثلث رو ذخيره كنم. تا اينجا هيچ مشكلي ندارم. مشكل من اين هستش كه ضلع سمت راست مثلثم هميشه مقدار 0 رو مي ده در حالي كه بايد 1 باشه.
اين كد من هستش به نظر شما دليلش چي مي تونه باشه؟

program khayam*Compeletetriangle;

uses crt;

var

  tr:array[0..10,0..10] of integer;

  b,c:integer;

begin

  for b:=1 to 10 do tr[b,0]:=1;

  for b:=1 to 10 do

    for c:=1 to b do tr[b,c]:=tr[b-1,c]+tr[b-1,c-1];

  clrscr;

  for b:=0 to 10 do

    for c:=0 to b do

    begin

      gotoxy(36+c*6-3*b+1,2*b+1);

      write(tr[b,c]:3,' ');

    end;

   readln;

end.