Вот мое решение:
program n_4_25;
Uses WinCRT;
var
  x1,x2,y1,y2,a,b,p,s:real;
begin;
WriteLn(‘Vvedite x1 i y1:’);
ReadLn(x1,y1);
WriteLn(‘Vvedite x2 i y2’);
ReadLn(x2,y2);
a:=abs(x2-x1);
WriteLn(‘a=’,a);
b:=abs(y2)-abs(y1);
WriteLn(‘b=’a);
p:=2*(a+b);
WriteLn(‘p=’p);
s:=a*b;
WriteLn(‘s=’s);
ReadLn
End.

Где ошибка?

Добавлено….
Даны координаты двух противоположных вершин прямоугольника (x1 ,y1) и (x 2,y2 ) Стороны прямоугольника а и b  параллельные осям координат. НАйти периметр P и площадь S данного прямоугольника, но с начала нужно посчитать  длины сторон а и b по формулам а=|x2– x1|, b=|y2 – у1|