Определить площадь части прямоугольника расположенной в 1-й части координатной четверти

Program S9;
Var
x1,y1,x2,y2,x3,y3,x4,y4,S:Real;
Begin
ReadLn(x1);
ReadLn(y1);
ReadLn(x2);
ReadLn(y2);
ReadLn(x3);
ReadLn(y3);
ReadLn(x4);
ReadLn(y4);
{Пусть x1,y1 это правый верхний угол прямоугольника,
x2,y2 это правый нижний угол и т.д.}
If ((x1>0) And {Если в I четверти только x1,y1}
    (y1>0) And 
    (x2<=0) And
    (y2<=0) And
    (x3<=0) And
    (y3<=0) And
    (x4<=0) And
    (y4<=0)) Then S:=x1*y1;
If ((x1>0) And {Если в I четверти x1,y1 и x2,y2}
    (y1>0) And 
    (x2>0) And
    (y2>0) And  {Самый большой прямоуг. в I четверти - это прямоугольник со сторонами x1 и y1}
    (x3<=0) And {Поэтому мы вычитаем из его площади площадь прямоугольника со сторонами x2 и y2}
    (y3<=0) And
    (x4<=0) And
    (y4<=0)) Then S:=x1*y1-(x1-x2)*(y1-y2);
If  ((x1>0) And {Если в I четверти все точки}
    (y1>0) And 
    (x2>0) And
    (y2>0) And
    (x3>0) And
    (y3>0) And
    (x4>0) And
    (y4>0)) Then S:=x1*y1-(x1-x4)*(y1-y2);
WriteLn(S);
ReadLn;
End.

Program pryam;
Var x1,x2,x3,x4,y1,y2,y3,y4,s:integer; {Или real , *на ваше усмотрение}
Begin
Write(' Введите координаты');
Write('с учётом того , что первая точка соответствует ');
Writeln('верхней левой вершине прямоугольника ,  а остальные - по часовой стрелке.');
Writeln('Введите x1,y1,x2,y2,x3,y3,x4,y4');
Read(x1,y1,x2,y2,x3,y3,x4,y4);
If (x1=x4) and (x2=x3) and (y1=y2) and(y3=y4) then
begin
If (x1=0) and (x2>0) and (x3>0) and (x4=0) and (y1>0) and (y2>0) and (y3>0) and (y4>0) then
s:=(x2-x1)*(y2-y3);
If (x1>0)  and (x2>0) and (x3>0) and (x4>0) and (y1>0) and (y2>0) and (y3=0) and (y4=0) then
s:=(x2-x1)*(y2-y3);
If (x1>0)  and (x2>0) and (x3>0) and (x4>0) and (y1>0) and (y2>0) and (y3>0) and (y4>0) then
s:=(x2-x1)*(y2-y3);
If (x1=0)  and (x2>0) and (x3>0) and (x4=0) and (y1>0) and (y2>0) and (y3=0) and (y4=0) then
s:=(x2-x1)*(y2-y3);
If (x1<0)  and (x2>0) and (x3>0) and (x4<0) and (y1>0) and (y2>0) and (y3>0) and (y4>0) then
s:=x2*(y2-y3);
If (x1>0)  and (x2>0) and (x3>0) and (x4>0) and (y1>0) and (y2>0) and (y3<0) and (y4<0) then
s:=(x2-x1)*y1;
Writeln('Площадь равна:',s);
end
Else Writeln('Error!');
Writeln('Нажмите <Enter>');
Readln;
End.

var w,h,x,y,x1,y1,x2,y2,n,i,c,buf:longint;
    a:array[-100..100,-100..100] of 0..1;
begin
readln(x1,y1,x2,y2);
if y1>y2 then begin
buf:=x1;
x1:=x2;
x2:=buf;
buf:=y1;
y1:=y2;
y2:=buf;
end;
      for y:=y1+1 to y2 do
      for x:=x1+1 to x2 do
        a[y][x]:=1;
  c:=0;
  for y:=0 to 100 do
    for x:=0 to 100 do
      c:=c+a[y][x];
  write(c);
end.