Составьте программу вычисления количества трёхзначных чисел-палиндромов.

Vars: string;
   ar: array of char;
   i, c, j: integer;
   b: boolean;
 begin
  b := true;
   i := 100;
   while true do
   begin
     s := i.ToString;
     setlength(ar, i.ToString.Length);
     ar := s.Reverse.ToArray;
     for j := 1 to i.ToString.Length do
       if (s[j] = ar[j - 1]) then else b := false;
     if(b = true) then c := c + 1 else b := true;
     if (i = 999) then break;
    i := i + 1;
  end;
   write(c);
 end.