Числа в диапазоне

[solmyashzz]

Вечер добрый, прошу помощи
Напишите программу, делающую три следующих вещи:
Печатает случайное целое число в диапазоне от 0 до 100, включая границы диапазона
Печатает случайное дробное число в диапазоне от -500 до 500
Запрашивает у пользователя два числа A и B и выводит два случайных числа X и Y, таких, что:
A < X <= Y < B
При условии, что A < B и B – A >= 10

[newerow1989]

Здесь включены 3 вещи:

var i, a, b, x, y: integer;
    r: real;
begin
   Randomize;
   i:=Random(101);
   Writeln(i);
   Writeln;

   r:=Random(1000)-500+Random;
   Writeln(r:0:8);
   Writeln;

   Write('a = '); Readln(a);
   Write('b = '); Readln(b);
   if b-a<10 then
   begin
      Writeln('Error: B - A < 10');
      Readln;
      Exit;
   end;
   x:=a+Random(b-a-2)+1;
   y:=x+Random(b-x);
   Writeln('x = ', x);
   Writeln('y = ', y);
   Readln;
end.

[solmyashzz]

newerow1989, Огромное вам спасибо!

[newerow1989]