Не могу понять, почему выдает ошибку

Program Netipiz3;
uses crt;
const n=10;
type fbt=file;
     massiv=array [1..n] of byte;
 
procedure CreateMas(var mas:massiv);
var i:byte;
begin
writeln('Массив:');
for i:=1 to n do
 begin
  mas[i]:=random(10);
  write(mas[i],' ');
 end;
writeln
end;
 
procedure CreateFile(var f:fbt;mas:massiv);
var i:byte;
begin
assign(f,'file.dat');
rewrite(F,1);
for i:=1 to n do
blockwrite(f,mas[i],1);
close(f);
end;
 
function Sred(var f:fbt):real;
var k:byte;
    s:real;
begin
reset(f,1);
while not eof(f) do
 begin
  blockread(f,k,1);
  s:=s+k;
 end;
close(f);
Sred:=s/n;
end;
 
var f:fbt;
    mas:massiv;
begin
clrscr;
randomize;
CreateMas(mas);
CreateFile(f,mas);
write('Среднее арифметическое=',Sred(f):0:2);
readln
end.

program Netipiz3;
 
uses crt;
 
const
  n = 10;
 
type
  fbt = file;
  massiv = array [1..n] of byte;
 
procedure CreateMas(var mas: massiv);
var
  i: byte;
begin
  writeln('Массив:');
  for i := 1 to n do
  begin
    mas[i] := random(10);
    write(mas[i], ' ');
  end;
  writeln
end;
 
procedure CreateFile(var f: fbt; mas: massiv);
var
  i: byte;
begin
  assign(f, 'file.dat');
  rewrite(F);
  for i := 1 to n do
    write(f, mas[i]);
  close(f);
end;
 
function Sred(var f: fbt): real;
var
  k: byte;
  s: real;
begin
  reset(f);
  while not eof(f) do
  begin
    read(f, k);
    s := s + k;
  end;
  close(f);
  Sred := s / n;
end;
 
var
  f: fbt;
  mas: massiv;
 
begin
  clrscr;
  randomize;
  CreateMas(mas);
  CreateFile(f, mas);
  write('Среднее арифметическое=', Sred(f):0:2);
  readln
end.