Прямоугольники пересекаются или нет — Pascal(Паскаль)

program b3;


var x1,x2,x3,x4,y1,y2,y3,y4:real;
    d,dx,dy:real;
    min,max:real;
begin
     write('введите x1='); readln(x1);
     write('введите y1='); readln(y1);
     write('введите x2='); readln(x2);
     write('введите x3='); readln(x3);
     write('введите y3='); readln(y3);
     write('введите x4='); readln(x4);
     y2:=0; y4:=0;
     if x1>x3 then max:=x1
              else max:=x3;
     if x2>x4 then min:=x4
              else min:=x2;
     dx:=min-max;
     if y1>y3 then dy:=y3
              else dy:=y1;
     d:=dx*dy;
     if d=0 then writeln('прямоугольники не пересекаются')
            else writeln('прямоугольники пересекаются и площадь пересечения =',d:4);
end.