Описать процедуру RectPS (x1,y1,x2,y2,P,S), вычисляющую периметр и площадь прямоугольника - Pascal ABC

Формулировка задачи:

Подскажите где ошибка, что неправильно? Описать процедуру RectPS (x1,y1,x2,y2,P,S), вычисляющую периметр P и площадь S прямоугольника со сторонами, параллельными осям координат, по координатам (x1,y1), (x2,y2),его противоположных вершин (x1,y1,x2,y2 - входные, P и S- выходные параметры вещественного типа). С помощью этой процедуры найти периметры и площади трех прямоугольников с данными противоположными вершинами.

program dasha;
procedure RectPS(x1,y1,x2,y2 : real; var P,S : real );
begin
x1:=2;
x2:=4;
y1:=3;
Y2:=6;
begin
  P := (abs(x2-x1) + abs(y2-y1)) * 2;
  S := abs(x2-x1) * abs(y2-y1);
  writeln (P:10:3)
end;

скажите где ошибка=(

Решение задачи: «Описать процедуру RectPS (x1,y1,x2,y2,P,S), вычисляющую периметр и площадь прямоугольника»

textual
                            Листинг программы 
                        

                            procedure RectPS(x1,x2,y1,y2: real);
var p,s: real;
begin
  begin
    P := (abs(x2-x1) + abs(y2-y1)) * 2;
    S := abs(x2-x1) * abs(y2-y1);
    writeln (P:10:3);
    writeln(s:10:3);
  end;
end;
 
var x1,x2,y1,y2: real;
begin
  x1:=2;
  x2:=4;
  y1:=3;
  Y2:=6;
  RectPS(x1,x2,y1,y2);
end.
                        