For i := n to n+n do
Begin
If (i mod 2 = 1) then
Begin                    Вот здесь забыл присвоить значение i иксу и обнулить строку s
while x<>0 do
begin
inc(i);                    а это ещё что?
s:=s+chr(x mod 2+$30);
x:=x div 2;
end;
l:=Length(s);
for i:=1 to l div 2 do              Здесь и далее нельзя использовать i- надо ввести новую переменную
begin
c:=s[i];
s[i]:=s[l+1-i];
s[l+1-i]:=c;
end;
WriteLn(s);
end;
End;

Uses CRT;
Var n, j: Integer;
     c: String;

{Convert DEC'number to BIN'number format}
Function Dec2Bin(x: Integer): String;
Var rez, temp: String;
     v: Integer;
Begin
rez := '';
If (x > 0) then
Begin
      While (x >= 2) do
            Begin
            v := x mod 2;
            Str(v, temp);
            rez := temp + rez;
            x := x div 2;
            End;
      Dec2Bin := '1' + rez;
      End
Else Dec2Bin := '0';
End;

Function IsPalindrome(s: String): Boolean;
Var i: Byte;
Begin
IsPalindrome := True;
For i := 1 to (length(s) div 2) do
     Begin
     If (s[i] <> s[length(s)-i+1]) then
        Begin
        IsPalindrome := False;
        Break;
        End;
     End;
End;

Begin
Repeat
ClrScr;
Write('NUM: '); Readln(n);
Until ((n >= 0) and (n <= 50000));
For j := n to n+n do
     Begin
     If (j mod 2 = 1) then
        Begin
        c := Dec2Bin(j);
        If (IsPalindrome(c)) then Writeln(c);
        End;
     End;
ReadKey;
End.

i:=1;
k:=n;
while i<>n do
     begin
        if testpalindrom(c,i,k) then
           begin
              Writestr(c,i,k);
              i:=k+1;
              k:=n;
           end
        else
              dec(k);
        end;

i:=1;  
k:=n;  
while i<>n do  
      begin  
         if testpalindrom(c,i,k) then  
            begin  
               Writestr(c,i,k);  
               i:=k+1;  
               k:=n;  
            end  
         else  
               dec(k);  
         end;