Числа, запись которых в двоичной системе есть палиндром

uses crt;
var n,i,j,k,p:integer;
    s:string;
begin
clrscr;
repeat
write('Введите натуральное число от 1 до 1000 n=');
readln(n);
until (n>0) and(n<=1000);
writeln('Числа, запись которых в двоичной системе есть палиндром');
k:=0;
for i:=2 to n do
 begin
  j:=2;
  while (j*j<=i)and(i mod j<>0) do inc(j);
  if j*j>i then{если простое}
   begin
    s:='';//переводим в СС 2
    p:=i;
    while p>0 do
     begin
      s:=chr(p mod 2+48)+s;
      p:=p div 2;
     end;
   j:=1;
   while(j<=length(s) div 2)and(s[j]=s[length(s)-j+1]) do inc(j);
   if j>length(s) div 2 then
    begin
     k:=k+1;
     writeln(i,'->',s);
   end;
  end;
 end;
if k=0 then writeln('До даннного N таких чисел нет');
readln;
end.

uses crt;{Подключение модуля crt}
var n,i,j,k,p:integer;{Объявление переменных}
    s:string;{Тоже}
begin{Начало программы}
clrscr;{Очистка экрана}
repeat{Начало цикла с постусловием}
write('Введите натуральное число от 1 до 1000 n=');{Вывод строки "Введите натуральное число от 1 до 1000 n="}
readln(n);{Ввод переменных n}
until (n>0) and(n<=1000); {Завершение цикла с постусловием. Условие выхода - n больше нуля и т меньше или равно 10000}
writeln('Числа, запись которых в двоичной системе есть палиндром');{Вывод строки "Числа, запись которых в двоичной системе есть палиндром" с переходом на новую строку}
k:=0;{Присвоение переменной k значения 0}
for i:=2 to n do{начало цикла #$&}
 begin{начало составного оператора}
  j:=2;{Присвоение переменной j значения 20}
  while (j*j<=i)and(i mod j<>0) do inc(j);{Цикл с предусловием. Условие продолжения цикла: j квадрат меньше или равно i и остаток от деления i на j не равен нулю(i не делится на j нацело). В цикле происходит увеличение j}
  if j*j>i then{если j квадрат больше j}
   begin{Начало составного оператора}
    s:='';{присвоение переменной s пустой строки}
    p:=i;{присвоение переменной p значения переменной i}
    while p>0 do//Начало цикла с предусловием. Условие продолжения цикла: p больше нуля
     begin{Начало составного оператора}
      s:=chr(p mod 2+48)+s;//Добавление в начало строки s символа двоичной цифры равной остатку от деления p на 2
      p:=p div 2;//Целочисленное деление p/2
     end;{конец составного оператора}
   j:=1;{присвоение переменной j значения 1}
   while(j<=length(s) div 2)and(s[j]=s[length(s)-j+1]) do inc(j);{Цикл с предусловием. Условие продолжения цикла: j меньше или равно длине s, делёной на  2 и символ строки s под номером j равен противоположному символу строки s. В цикле происходит увеличение j}
   if j>length(s) div 2 then //Если j дальше половины строки
    begin
     k:=k+1;//k увеличивается на 1
     writeln(i,'->',s);//Вывод i, строки "->" и s с переходом на новую строку
   end;{конец составного оператора}
  end;{конец составного оператора}
 end;{конец составного оператора}
if k=0 then writeln('До даннного N таких чисел нет');//Если k равно нулю, вывод строки "До даннного N таких чисел нет" с переходом на новую строку
readln;//Ожидание ввода чего угодно
end.//Конец программы