Организуйте заполнение типизированного файла случайными целыми числами из интервала [-1000;1000]

uses wincrt;
type
    mas = record
      n : integer;
end;
 
procedure vivod;
var
    f : file of mas;
  buf : mas;
 
begin
 reset(f);
 while not eof(f) do
   begin
       read(f,buf);
       write(buf.n);
   end;
end;
 
procedure vvod;
var
     f : file of mas;
   buf : mas;
   i,m : byte;
 
begin
 m := random(4) + 4;
 
 for i:=1 to m do
   begin
        buf.n := random(8000) - 4000;
        write(f,buf);
   end;
 
   close(f);
end;
 
procedure sr(var x : real);
var
     f : file of mas;
   buf : mas;
     k : byte;
 
begin
reset(f);
k:=0;
 
while not eof(f) do
     begin
         x := x + buf.n;
         inc(k);
     end;
 
x := x / k;
end;
 
VAR
    f : file of mas;
  buf : mas;
    x : real;
 
begin
  randomize;
 
  assign(f,'mas.txt');
    {$i-}
       reset(f);
    {$i+}
 
    if ioresult <> 0
       then
           rewrite(f);
 
   vvod;
 
   reset(f);
 
   sr(x);
   while not eof(f) do
     if buf.n = 0
        then
            begin
                 buf.n := round(x);
                 break;
            end;
 
  vivod;
end.