нужна помощь с паскалем. заполнение файла рандомными числами

вот собственно сама программа, тут требуется зарандомить 5 файлов действительными числами и потом поменять их компоненты. проблема в том, что у меня рандом делается только 1 раз и компоненты всех файлов равны, а мне нужны 5 файлов с разным содержанием, что нужно изменить в программе?

uses crt;
type fail=file of real;
procedure WriteFile(var f:fail;name:string);
const n=3;
var r:real;
c:char;
i:integer;
begin
assign(f,name);
rewrite(f);
randomize;
for i:=1 to n do begin
r:=(random(50)+1)/(random(100)+1);
write(f,r);
end;
clrscr;
close(f);
end;
procedure ReadFile(var f:fail;name:string);
var r:real;
begin
writeln(' Файл ',name);
reset(f);
while not eof(f) do
begin
read(f,r);
write(r:0:2,' ');
end;
writeln;
close(f);
end;
procedure CopyFile(var f,g:fail);
var r:real;
begin
reset(f);
rewrite(g);
while not eof(f) do
begin
read(f,r);
write(g,r);
end;
close(g);
close(f);
end;
var f1,f2,f3,f4,f5,h:fail;
begin
assign(f1,'file1');
rewrite(f1);
assign(f2,'file2');
rewrite(f2);
assign(f3,'file3');
rewrite(f3);
assign(f4,'file4');
rewrite(f4);
assign(f5,'file5');
rewrite(f5);
assign(h,'fileh');
rewrite(h);
clrscr;
WriteFile(f1,'File1');
WriteFile(f2,'File2');
WriteFile(f3,'File3');
WriteFile(f4,'File4');
WriteFile(f5,'File5');
writeln('Содержание исходных файлов: ');
ReadFile(f1,'File1');
ReadFile(f2,'File2');
ReadFile(f3,'File3');
ReadFile(f4,'File4');
ReadFile(f5,'File5');
CopyFile(f3,h);
CopyFile(f1,f3);
CopyFile(h,f5);
CopyFile(f4,h);
CopyFile(f2,f4);
CopyFile(h,f1);
writeln('Содержание измененных файлов: ');
ReadFile(f1,'File1');
ReadFile(f2,'File2');
ReadFile(f3,'File3');
ReadFile(f4,'File4');
ReadFile(f5,'File5');
erase(h);
readln;
end.