Даны координаты двух противоположных вершин прямоугольника(х1,,у2). стороны прямоугольника параллельны осям координат.найти периметр и площадь

Var x1,x2,y1,y2,p,s:integer;
beginwrite('Введите x1 и y1');Readln(x1 , y1);write('Введите x2 и y2');Readln(x2 , y2);p:= abs((x2 - x1))*2 + abs((y1 -y2))*2;s:= abs((x2 - x1))* abs((y1 -y2));write('Введите x1 и y1',x1:4 , y1:4);write('  ');writeln('Введите x2 и y2',x2:4 , y2:4);writeln('Периметр = ',p);writeln('Площадь = ',s);end.