Как сделать так, чтобы эта часть брала любое число из рандома?

var f:file of real;
n,i,k:integer;
m: real;
a:string;
begin
a:='number.txt';
assign(f,a); rewrite(f);
write('Количество чисел в файле: '); readln(n);
for i:=1 to n do begin
m:=-100 + random (200); // как сделать, чтобы выдавали абсолютно любые числа без этих ограничений?
write (m:0:1,' ');
write(f,m);
end;
close(f);
writeln;
 
reset(f);
k:=0;
for i:=0 to filesize(f)-1 do begin
read(f,m);
if m=0 then k:=k+1;
end; writeln ('Количество нулевых значений: ', k);
close(f);
end.

var f: file of real;
    i, k: integer;
    m: real;
    s: string;
begin
s:='number.txt';
assign(f,s); rewrite(f);
writeln('Введите в файл 10 вещественных чисел, в том числе ноли');
for i:=1 to 10 do
 begin
  readln(m);
  write(f,m)
 end;
reset(f);
k:=0;
for i:=0 to filesize(f)-1 do
 begin
  read(f,m);
  if m=0 then k:=k+1;
 end;
writeln('Количество нолей=',k);
close(f);
end.