Question

Ребят, нужна хоть какая нибудь консультация. Поэтому подскажите: var d1: text;
var c: integer;
var d: integer;
var f: integer;
begin
assign(d1,'rab4.txt');
reset(d1);
d:=1;
while not eof(d1) do
begin
c:=c+1;
readln(d1,f);
writeln(c,' ',f);
if (f>=12) and (f<=15) and (f mod 2<>0) then d:=d*f;
writeln('Текущее произведение =',d, ' элемент равен - ',f);
end;
writeln('Произведение нечетных чисел в диапазоне 12-15 =',d);
end.

Правильная ли программа?

P.S. Программа связана с файлом, где находится 101 значение, меня не сколько это волнует, сколько правильность того, что я накарякал тут...