Нахождение составного числа и среднего арифметического трехзначных чисел (нужны комментарии к коду)

uses crt;
var f:text;
    a,i,d,p:integer;
    s:real;
begin
clrscr;
randomize;
assign(f,'1.txt');
rewrite(f);
for i:=1 to 150 do
 begin
  a:=20+random(481);
  write(f,' ',a);
 end;
reset(f);
writeln('содержание файла');
s:=0;
d:=0;
while not eof(f) do
 begin
  read(f,a);
  write(a:4);
  if a div 100>0 then // ?
   begin
    s:=s+a; //(что выполняется?)
    inc(d);
   end;
 end;
s:=s/d;//?
writeln;
reset(f);
writeln('составные числа');
while not eof(f) do
 begin
  read(f,a);
  if odd(a) then
   begin
    d:=3;
    p:=0;
    while(d*d<=a)and(p=0) do
    if a mod d=0 then p:=1
    else inc(d,2);
   end;
  if (p=1)or not odd(a) then write(a:4);
 end;
writeln;
writeln('Среднее арифметическое трех значных чисел=',s:0:1);
close(f);
readln
end.

s:=0;//сумма чисел=0
d:=0;//количество чисел=0
while not eof(f) do
 begin
  read(f,a);
  write(a:4);
  if a div 100>0 then //число трехзначное, например 450/100=4>0
   begin
    s:=s+a; //суммируем числа
    inc(d);//считаем их d:=d+1;
   end;
 end;
s:=s/d;//делим сумму на количество

if odd(a) then//если нечетное(четные все составные)
   begin
    d:=3;//начинаем делить начиная с 3
    p:=0;//пока не составное
    while(d*d<=a)and(p=0) do/пока квадрат делителя не превышает число
    if a mod d=0 then p:=1//если делится, составное, р=1
    else inc(d,2);//иначе следующее  нечетное(+2)
   end;
  if (p=1)or not odd(a) then write(a:4)//если составное нечетное или четное, выводим