Паскаль!!!Даны координаты левой верхней и правой нижней вершин квадрата. Найти координаты

Var x1,y1,x2,y2,x,y:real;
begin
writeln('Введите координаты левой верхней верхушки квадрата');
readln(x1,y1);
writeln('Введите координаты правой нижней верхушки квадрата');
readln(x2,y2);
x:=x1+(x2-x1)/2;
y:=y2+(y1-y2)/2;
writeln('Координаты точки скрещения диагоналей квадрата:');
writeln('x = ',x,' y = ',y);
end.

Пример:
Введите координаты левой верхней верхушки квадрата
4 3
Введите координаты правой нижней верхушки квадрата
6 1
Координаты точки пересечения диагоналей квадрата:
x = 5 y = 2

Var
x1,x2,y1,y2:real;
Begin
Write('x1 = ');
ReadLn(x1);
Write('y1 = ');
ReadLn(y1);
Write('x2 = ');
ReadLn(x2);
Write('y2 = ');
ReadLn(y2);
WriteLn('(',x1+(x2-x1)/2,',',y2+(y1-y2)/2,')')
End.