Перевод из паскаля на СИ

[Кот Шрёдингера]

Доброго времени суток!
Очень нужна ваша помощь. Я только недавно начала учить Си, есть трудности. Срочно нужно было решить задачу, поэтому написала её на паскале. А нужна она на Си))
Помогите пожалуйста, переведите =)
Программа, которая находит площадь пересечения 2х прямоугольников.
В первой части привожу прямоугольники к такому виду, чтобы первыми были координаты левой верхней точки, а потом нижней правой. Во второй части просто считаю площадь.

uses crt;
var z:array [1..8] of longint;
c: longint;
i:integer;
begin
clrscr;
for i:=1 to 8 do
read (z[i]);

if z[3]<z[1] then
begin
c:=z[1]; z[1]:=z[3]; z[3]:=c;
end;
if z[7]<z[5] then
begin
c:=z[5]; z[5]:=z[7]; z[7]:=c;
end;
if z[2]<z[4] then
begin
c:=z[2]; z[2]:=z[4]; z[4]:=c;
end;
if z[6]<z[8] then
begin
c:=z[6]; z[6]:=z[8]; z[8]:=c;
end;

if z[1]<z[5] then
begin
c:=z[5]-z[1];
z[1]:=z[1]+c;
end
else
begin
c:=z[1]-z[5];
z[1]:=z[5]+c;
end;
if z[2]<z[6] then
begin
c:=z[6]-z[2];
z[2]:=z[6]-c;
end
else
begin
c:=z[2]-z[6];
z[2]:=z[2]-c;
end;

if z[3]<z[7] then
begin
c:=z[7]-z[3];
z[3]:=z[7]-c;
end
else
begin
c:=z[3]-z[7];
z[3]:=z[7]-c;
end;
if z[4]<z[8] then
begin
c:=z[8]-z[4];
z[4]:=z[4]+c;
end
else
begin
c:=z[4]-z[8];
z[4]:=z[8]+c;
end;
c:=abs((z[1]-z[3])*(z[2]-z[4]));
writeln(c);
end.