Файлы последовательного доступа - Pascal ABC

var f:text;
    a,s:real;
    n,i,k:integer;
begin
write('Сколько чисел записать в файл n=');
readln(n);
assign(f,'111.txt');
rewrite(f);
for i:=1 to n do
 begin
  a:=random;
  write(f,a:6:2);
 end;
close(f);
reset(f);
k:=0;
s:=0;
while not seekeof(f) do
 begin
  read(f,a);
  if a<0.5 then
   begin
    s:=s+a;
    k:=k+1;
   end;
end;
close(f);
if k=0 then write('В файле нет чисел меньше 0.5')
else write('Среднее арифметическое чисел меньше 0.5=',s/k:0:2);
end.