Создание текстовых файлов с невозрастающей последовательностью целых и вещественных чисел

Procedure AddFiles;
Var
  r:real;
  y,i,k:integer;
Begin
  Assign(C,'c.txt');
  Assign(D,'d.txt');
  Assign(F,'f.txt');
  Rewrite(C);
  Rewrite(D);
  Rewrite(F);
  Write('Введите количество чисел в файле C: ');Read(k);
  i:=1;
  For i:=1 to k do
  begin
    randomize;
    For y:=100 downto 1 do
    begin
      r:=(random(30))*(-1)+y;      
      Write(C,r);
    end;
  end;
  Write('Введите количество чисел в файле D: ');Read(k);
  i:=1;
  For i:=1 to k do 
  begin
    randomize;
    For y:=100 downto 1 do
    begin
      r:=(random(30))*(-1)+y;      
      Write(D,r);
    end;
  end;
end;

 ///процедура записывает в файл последовательность M невозрастающих чисел
procedure nevozrastanie(L: integer);
var
  f : text;
  i, N, a: integer;
  
begin
  Assign(f, 'D:\nevozrastanie.dat'); { связываем файловую переменную f c физическим файлом D:\nevozrastanie.dat }
  Rewrite(f); //открываем текстовый файл на запись, предварительно очищая всё его содержимое
  writeln;
  randomize;
  a := random(4 * L);
 { Находим и записываем в файл M случайных целых чисел: } 
  for i := 1 to L do
  begin
    N := a - random(10);
    a := N;
    write(f, ' ', N); //записываем в файл "пробел" и число N
   // write(' ', N); //выводим результат на экран
  end;
  writeln;
  Close(f); //закрытие файла
end;
 
var
  M: integer;
 
begin
  writeln('Введите число:');
  write(' M = ');
  readln(M);
  writeln;
  Writeln('Случайный массив ', M, ' невозрастающих чисел:' );
  nevozrastanie(M); //вызываем процедуру
  writeln;
  writeln;
  writeln('Ваш файл находится в директории "D:\nevozrastanie.dat"');
end.