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

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] := Int((random()*20)*100)/100;

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

a[i,j]:=-19.99+random*39.98;

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