Если x, y отрицательны, то каждое значение заменить его модулем - Turbo Pascal

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

помогите не могу написать код... напишите программу пожалуйста... Даны действительные числа x, y. Если x, y отрицательны, то каждое значение заменить его модулем; если отрицательное только одно из них, то оба значения увеличить на 0.5; если оба значения не отрицательны и ни одно из них не принадлежит отрезку [0.5, 2.0], то оба значения уменьшить в 10 раз; в остальных случаях x, y оставить без изменения.

Решение задачи: «Если x, y отрицательны, то каждое значение заменить его модулем»

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

var
  x,y: real;
begin
  write('Введите х: ');
  readln(x);
  write('Введите y: ');
  readln(y);
  if (x<0)and(y<0) then
  begin
    x:=abs(x);
    y:=abs(y);
  end
    else if (x<0)or(y<0) then
    begin
      x:=x+0.5;
      y:=y+0.5;
    end
      else if ((x>=0)and(y>=0)and(x<0.5)
        and(y<0.5))or((x>2)and(y>2)) then
        begin
          x:=x/10;
          y:=y/10;
        end;
  writeln('x = ',x);
  writeln('y = ',y);
  readln;       
end.

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

Ввод значений x и y с помощью функции readln.
Проверка условий для определения значений x и y.
Если x и y отрицательны, то значения x и y заменяются на их абсолютные значения с помощью функции abs.
Если хотя бы одно из значений x или y меньше нуля, то выполняется следующая часть условия.
Если x меньше нуля, то значение x увеличивается на 0.5.
Если y меньше нуля, то значение y увеличивается на 0.5.
Если оба значения x и y меньше нуля, то выполняется следующая часть условия.
Если x и y оба положительные или оба отрицательные, но их значения больше или равны 0.5, то выполняется следующая часть условия.
Если x больше 2, а y больше 2, то значения x и y уменьшаются в два раза.
Вывод значений x и y на экран с помощью функции writeln.
Вызов функции readln для чтения конца строки.