Найти периметр квадрата, стороны которого параллельны осям координат, а противоположные вершины лежат в точках А(x1,y1), D(x2,y2)

uses crt;
var x1,y1,x2,y2,p:real;
begin
clrscr;
repeat
writeln('Введите координаты двух противоположных вершин квадрата:');
writeln('Первая:');
readln(x1,y1);
writeln('Вторая:');
readln(x2,y2);
if(x1-x2=0)or(y1-y2=0)or(abs(x1-x2)<>abs(y1-y2)) then
writeln('Это не квадрат, повторите ввод.');
until (x1-x2<>0)and(y1-y2<>0)and(abs(x1-x2)=abs(y1-y2));
p:=4*abs(x1-x2);
write('Периметр=',p:0:2);
readln
end.

uses crt;
var x1,y1,x2,y2,p:real;
begin
clrscr;
repeat
writeln('Введите координаты двух противоположных вершин квадрата:');
writeln('Первая:');
readln(x1,y1);
writeln('Вторая:');
readln(x2,y2);
if(x1-x2=0)or(y1-y2=0)or(abs(x1-x2)<>abs(y1-y2)) then
writeln('Это не квадрат, повторите ввод.');
until (x1-x2<>0)and(y1-y2<>0)and(abs(x1-x2)=abs(y1-y2));
p:=4*abs(x1-x2);
write('Периметр=',p:0:2);
readln
end.

uses crt;
procedure vvod(var x1,y1,x2,y2:real);
begin
repeat
writeln('Введите координаты двух противоположных вершин квадрата:');
writeln('Первая:');
readln(x1,y1);
writeln('Вторая:');
readln(x2,y2);
if(x1-x2=0)or(y1-y2=0)or(abs(x1-x2)<>abs(y1-y2)) then
writeln('Это не квадрат, повторите ввод.');
until (x1-x2<>0)and(y1-y2<>0)and(abs(x1-x2)=abs(y1-y2));
end;
procedure per(x1,y1,x2,y2:real;var p:real);
begin
p:=4*abs(x1-x2);
write('Периметр=',p:0:2);
end;
var x1,y1,x2,y2,p:real;
begin
clrscr;
vvod(x1,y1,x2,y2);
per(x1,y1,x2,y2,p);
readln
end.