Создать программу в паскале для сравнения периметров двух прямоугольников

// PascalABC.NET, версия 3.2

var
p1, p2: integer;
function GetP(a, b: integer): integer;
begin
GetP := 2 * (a + b);
end;
begin
p1 := GetP(ReadInteger(a1 = ), ReadInteger(b1 = ));
p2 := GetP(ReadInteger(a2 = ), ReadInteger(b2 = ));
if p1 gt; p2 then
writeln(периметр первого больше);
if p1 = p2 then
writeln(периметры равны)
else
writeln(периметр второго больше);
end.