Helyes így ez a Pascal program?

Sajnos nem vagyok olyan helyzetben, hogy le tudjam futtatni gépen úgyhogy nagy segítség lenne ha valaki ellenőrizné hogy van-e benne hiba :)

A feladat hogy egy 'b' állomány második sorából írassuk ki azokat a számokat melyek 2 hatványai. Köszönöm előre is! :)

var a,m,n:integer;

f:text;

t:boolean;

begin

assign(f,'b.txt');

reset(f);

t:true;

readln(f);

while not eol(f) do

begin

read(f,a);

n:=a;

while a>=2 do

begin

m:=n mod 2;

if m<>0 then t:false;

n:=n div 2;

end;

if t=true then write(a);

end;

close(f);

end.