Палиндромы и двоичная система

var m:array[1..100]of integer;
n:longint;
i,k:integer;
 
begin;
 write('-> ');
 readln(n);
 k := 0;
 if n=0 then
 begin
  k:=1;
  m[k]:=0;
 end else
 while n<>0 do
 begin
  inc(k);
  m[k] := n mod 2;
  n := n div 2;
 end;
 for i:=k downto 1 do write(m[i],' ');
 readln;
 end.

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

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.