Является ли четырёхугольник, заданный координатами своих вершин, ромбом?

program jfjffj;
var x1,y1,x2,y2,x3,y3,x4,y4:integer;
function romb(a,b,c,d:real):real;
begin
if (a=b)and(b=c)and(c=d)then
writeln('ромб')else 
writeln('четырёхугольник');
end;
begin
write(x1,y1,x2,y2,x3,y3,x4,y4);
readln(x1,y1,x2,y2,x3,y3,x4,y4);
writeln('четырёхугольник является ',romb);
end.
 
2. Составить программу для нахождения суммы минимального и максимального значений среди элементов каждой из линейных таблиц Х[10] и Y[6]. 
 
program dfkjlg;
const N=20;
type mas=array[1..N]of real;
var x,y:mas;
procedure vvod(var a:mas;m:integer);
var i:integer;
begin
randomize;
for i:=1 to m do
a[i]:=random(20)-10;
end;
procedure vivod(a:mas;m:integer);
var i:integer;
begin
for i:=1 to m do
write(a[i],' ');
end;
function max(a:mas;m:integer):real;
var i:integer;
begin
max:=a[1];
for i:=2 to m do
if max<a[i] then max:=a[i];
end;
function min(a:mas;m:integer):real;
var i:integer;
begin
min:=a[1];
for i:=2 to m do
if min>a[i] then
min:=a[i];
end;
begin
vvod(x,10);
vvod(y,6);
vivod(x,10);
vivod(y,6);
writeln('максимальный элемент матрицы x= ',max(x,10));
writeln('максимальный элемент матрицы y= ',max(y,6));
writeln('минимальный элемент матрицы x= ',min(x,10));
writeln('минимальный элемент матрицы y= ',min(x,6));
end.

program p1;
var x1,y1,x2,y2,x3,y3,x4,y4,a,b,c,d:real;
function romb(a,b,c,d:real):bolean;
begin
if (a=b)and(b=c)and(c=d)then
 romb:=true;
end;
begin
write(x1,y1,x2,y2,x3,y3,x4,y4);
readln(x1,y1,x2,y2,x3,y3,x4,y4);
a:=sqrt(sqr(x2-x1)+sqr(y2-y1));
b:=sqrt(sqr(x3-x2)+sqr(y3-y2));
c:=sqrt(sqr(x4-x3)+sqr(y4-y3));
d:=sqrt(sqr(x1-x4)+sqr(y1-y4));
if romb(a,b,c,d) then
writeln('четырехугольник является ромбом');
else 
writeln('четырехугольник не является ромбомж');
end.