Случайные числа Pascal, Псевдослучайные числа

Генерировать с помощью random 

1.  25 действительных чисел, лежащих в диапозоне от -50 до 50,
2.  30 целых чисел, лежащих в диапозоне от -20 до 20.
3.  20 не отрицательных действительных чисел, не превосходящих 40.

var i:byte;
begin
  writeln('25 действительных чисел, лежащих в диапозоне от -50 до 50');
  for i:=1 to 25 do
  write((random(101)-50):4);
  writeln;
  writeln(' 30 целых чисел, лежащих в диапозоне от -20 до 20');
  for i:=1 to 30 do
  write((random(41)-20):4);
  writeln;
  writeln('двадцать не отрицательных действительных чисел, не превосходящих 40.');
  for i:=1 to 20 do
  write(random(41):4);
  writeln;
  readln;
end.