Генерация дробных чисел в заданном диапазоне - Pascal ABC

Формулировка задачи:

Преподаватель при сдаче практической работы когда был вывод матрицы: -6.5 -8.5 -6.5 -8.5 -8.5 -4.5 -6.5 -6.5 -8.5 -8.5 -5.5 -6.5 -7.5 -3.5 -9.5 -3.5 -5.5 -5.5 -7.5 -9.5 -2.5 -7.5 -6.5 -8.5 -8.5 попросил сделать чтобы выводились разные числа, сказал что они все одинаковые якобы 7.5 -5.5 все они с половиной, попросил сделать чтобы были десятые доли или тысячные,неважно, нужно чтобы числа отличались например 7.86 5.34 3.21 чтобы они были не с половиной все как это сделать?

program pr;
 
var
  a: array [1..7,1..7] of real; 
  
  n, m, i, j, c: integer;
  q: real;
 
begin
  c := 0;   
  Repeat
  writeln('Введите количество строк');  
  readln(n); 
  writeln('Введите количество столбцов');  
  readln(m);
  writeln('Введите q');       
  readln(q);
  if (n<=0) or  (n>7) or (m>7) or (m<=0) then
  Writeln('Исходные данные не верны,');
  Until  (n>0) and  (n<=7) and (m<=7) and (m>0);
  begin
  for i := 1 to n do
    for j := 1 to m do
      a[i, j] := random(10) - 10.5; 
      random;
  for i := 1 to n do         
  begin
    for j := 1 to m do
      write(a[i, j]:6);
    writeln;
  end;
  writeln;
  for i := 1 to n do
    for j := 1 to m do
      if abs(a[i, j]) > q then      
      begin
        write(a[i, j]:6);
        c := c + 1;
      end;   
      writeln;
  writeln('Количество элементов больших q по модулю: ', c);
  end
end.

Решение задачи: «Генерация дробных чисел в заданном диапазоне»

Листинг программы

a[i,j]:=-20+40*random;

Объяснение кода листинга программы

В данном коде происходит генерация случайного числа в заданном диапазоне.

Переменная a представляет собой двумерный массив размером i x j.
Функция random() генерирует случайное число в заданном диапазоне от 0 до 1.
Выражение -20+40*random вычисляет значение элемента массива a по индексам i и j. Значение выражения будет лежать в диапазоне от -20 до 80 (40*random+20).
Значение выражения -20+40*random присваивается переменной a[i,j].