Датчик случайных чисел

uses crt;//Запуск по Shift+F9
type tfile=file of real;
//создание исходного файла по убыванию
procedure create(var f:tfile;Name:string);
var n:integer;
    a,b:real;
begin
assign(f,Name);
rewrite(f);
write('Количество чисел в файле n=');
readln(n);
//заполнение файла
for var i:=1 to n do
 begin
  a:=20*random;
  write(f,a)
 end;
//сортировка по убыванию
for var i:=0 to filesize(f)-2 do
for var j:=i+1 to filesize(f)-1 do
  begin
    seek(f,i);
    read(f,a);
    seek(f,j);
    read(f,b);
    if a<b then
      begin
       seek(f,i);
       write(f,b);
       seek(f,j);
       write(f,a);
      end;
   end;
writeln('Содержание файла ',Name,':');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a:5:1);
 end;
writeln;
close(f)
end;
var f1,f2,f3:tfile;
    i,j:integer;
    a,b:real;
begin
clrscr;
randomize;
create(f1,'Name1');
create(f2,'Name2');
assign(f3,'Name3');
rewrite(f3);
reset(f1);
reset(f2);
i:=filesize(f1)-1;
j:=filesize(f2)-1;
while(i>=0)or(j>=0) do{пока не кончился один из файлов}
 begin
  if (i>=0)and(j>=0) then{если не кончились оба}
   begin
    seek(f1,i);
    read(f1,a);
    seek(f2,j);
    read(f2,b);
    if a<b then
     begin
      write(f3,a);
      dec(i);
     end
    else
     begin
      write(f3,b);
      dec(j);
     end;
   end
  else if j<0 then{если кончился второй}
   begin
    seek(f1,i);
    read(f1,a);
    write(f3,a);
    dec(i);
   end
  else if i<0 then{если кончился первый}
   begin
    seek(f2,j);
    read(f2,b);
    write(f3,b);
    dec(j);
   end;
 end;
close(f1);
close(f2);
writeln('Слияние файлов по убыванию:');
seek(f3,0);
while not eof(f3) do
 begin
  read(f3,a);
  write(a:5:1);
 end;
writeln; 
close(f3);
end.

begin
  var a := ArrRandomInteger(10, -100, +100).SortedDescending;
  var b := ArrRandomInteger(10, -100, +100).SortedDescending;
  WriteAllText('f1.txt', a.JoinIntoString); $'Создан файл f1: {a.JoinIntoString}'.Println;
  WriteAllText('f2.txt', b.JoinIntoString); $'Создан файл f2: {b.JoinIntoString}'.Println;
  
  var c := (ReadAllText('f1.txt') + #32 + ReadAllText('f2.txt')).ToIntegers.Sorted;
  WriteAllText('fall.txt', c.JoinIntoString); $'Создан файл fall: {c.JoinIntoString}'.Println;
end.