Перечислить все натуральные числа, не превосходящие заданного N

uses crt;
const zn:string[9]='01';{цифры в СС 2}
{процедура перевода из СС10 в СС2}
procedure DecBin(n:integer;var s:string);
begin
s:='';
while n>0 do {пока число не 0}
 begin
  s:=zn[n mod 2+1]+s;{берем остаток от деления на 2 и пишем в начало}
  n:=n div 2;{сокращаем в 2 раза}
 end;
end;
{функция определения програссия или нет}
function Prog(s:string):boolean;
var f:boolean;
    i,n,d:byte;
    a:array[byte] of byte;{массив номеров ненулевых разрядов}
begin
n:=0;
for i:=length(s) downto 1 do{смотри с конца строки}
if s[i]='1' then{если 1}
 begin
  n:=n+1;
  a[n]:=length(s)-i+1;{пишем номер, считая от конца}
 end;
if n<2 then f:=false{если меньше 2 номеров, не прогрессия}
else
 begin
  d:=a[2]-a[1];{разность первого и второго}
  f:=true;{считаем что прогрессия}
  i:=2;{начнем со второго}
  while(i<n)and f do
  if a[i+1]-a[i]<>d then f:=false {если какая-то разность не равна первой, не прогрессия}
  else i:=i+1;{иначе смотрим дальше}
 end;
Prog:=f;
end;
var n,i,k:integer;
    s:string;
begin
clrscr;
write('Введите натуральное число n=');
readln(n);
k:=0;{пока нет нужных чисел}
writeln('Числа, в двоичном представлении которых');
writeln('номера ненулевых разрядов представляют арифметическую прогрессию');
for i:=1 to n do
 begin
  DecBin(i,s);
  if Prog(s) then {если прогрессия}
   begin
    k:=1;{фиксируем}
    writeln(i:3,'=',s);{выводим число в обеих системах}
   end;
 end;
if k=0 then write('Таких чисел нет');
readln
end.

for i:=1 to n do
 begin
  DecBin(i,s);//пишем все что в этой процедуре
  if Prog(s) then {если прогрессия}//пишем все что в этой функции
   begin
    k:=1;{фиксируем}
    writeln(i:3,'=',s);{выводим число в обеих системах}
   end;
 end;

uses crt;
const zn:string[2]='01';{цифры в СС 2}
var n,m,i,j,k,d,c:integer;
    s:string;
    f:boolean;
    a:array[byte] of byte;{массив номеров ненулевых разрядов}
begin
clrscr;
write('Введите натуральное число n=');
readln(n);
k:=0;{пока нет нужных чисел}
writeln('Числа, в двоичном представлении которых');
writeln('номера ненулевых разрядов представляют арифметическую прогрессию');
for i:=1 to n do
 begin
  s:='';
  c:=i;
  while c>0 do {пока число не 0}
   begin
    s:=zn[c mod 2+1]+s;{берем остаток от деления на 2 и пишем в начало}
    c:=c div 2;{сокращаем в 2 раза}
   end;
  m:=0;
  for j:=length(s) downto 1 do{смотри с конца строки}
  if s[j]='1' then{если 1}
   begin
    m:=m+1;
    a[m]:=length(s)-j+1;{пишем номер, считая от конца}
   end;
  if m<2 then f:=false{если меньше 2 номеров, не прогрессия}
  else
   begin
    d:=a[2]-a[1];{разность первого и второго}
    f:=true;{считаем что прогрессия}
    j:=2;{начнем со второго}
    while(j<m)and f do
    if a[j+1]-a[j]<>d then f:=false {если какая-то разность не равна первой, не прогрессия}
    else j:=j+1;{иначе смотрим дальше}
  end;
  if f then {если прогрессия}
   begin
    k:=1;{фиксируем}
    writeln(i:3,'=',s);{выводим число в обеих системах}
   end;
 end;
if k=0 then write('Таких чисел нет');
readln
end.