Процедуры и функции: Найти сумму только тех введенных чисел, которые являются степенью двойки, причем предварительно перевернув их.

uses crt;
function IsStep_2(n:integer):boolean;
var s:integer;
begin
if n=0 then IsStep_2:=true
else
 begin
  s:=1;
  while s<n do s:=s*2;
  IsStep_2:=n=s;
 end;
end;
procedure Pevers(a:integer;var b:integer);
begin
b:=0;
while a>0 do
 begin
  b:=b*10+a mod 10;
  a:=a div 10;
 end;
end;
var n,i,a,b:integer;
    s:real;
begin
write('n=');
read(n);
writeln('Введите ',n,' натуральных чисел:');
s:=0;
for i:=1 to n do
 begin
  repeat
   write('a=');
   read(a);
  until a>=0;
  if IsStep_2(a) then
   begin
    Pevers(a,b);
    s:=s+b;
   end;
  end;
write('s=',s:0:0);
end.

program project;
 
var
s,i,t,n:integer;
 
function check(x:integer):boolean;
begin
  result:=true;
  if x=1 then
  begin
    result:=false;
    exit;
  end;
  while x>1 do
  begin
    if x mod 2=0 then x:=x div 2
    else
       begin
         result:=false;
         break;
       end;
  end;
end;
 
procedure reverse(var x:integer);
var
v:integer;
begin
  v:=x;
  x:=0;
  while v>0 do
  begin
    x:=x*10+v mod 10;
    v:=v div 10;
  end;
end;
 
begin
     s:=0;
     readln(n);
     for i:=1 to n do
     begin
       read(t);
       if check(t) then
       begin
          reverse(t);
          inc(s,t);
       end;
     end;
     writeln(s);
end.