Написать программу, определяющую наименьшую площадь из трех заданных координатами своих вершин квадратов. Написать функцию, подсчитывающую площадь квадрата (входной параметр: координаты начала и конца стороны квадрата) — Pascal(Паскаль)

uses crt;
type Kvadrat=record
             x1,y1,x2,y2:real;
             s:real;
             end;
function Plosh(x1,y1,x2,y2:real):real;
begin
Plosh:=sqr(sqrt(sqr(x1-x2)+sqr(y1-y2)));
end;
var a,b,c:kvadrat;
    imn:char;
    mn:real;
begin
clrscr;
writeln('Введите координаты концов стороны квадрата # 1');
readln(a.x1,a.y1,a.x2,a.y2);
a.s:=Plosh(a.x1,a.y1,a.x2,a.y2);
mn:=a.s;imn:='A';
writeln('Введите координаты концов стороны квадрата # 2');
readln(b.x1,b.y1,b.x2,b.y2);
b.s:=Plosh(b.x1,b.y1,b.x2,b.y2);
if b.s<mn then
  begin
   mn:=b.s;
   imn:='B';
  end;
writeln('Введите координаты концов стороны квадрата # 3');
readln(c.x1,c.y1,c.x2,c.y2);
c.s:=Plosh(c.x1,c.y1,c.x2,c.y2);
if c.s<mn then
  begin
   mn:=c.s;
   imn:='C';
  end;
writeln('площадь квадрата А=',a.s:0:2);
writeln('площадь квадрата B=',b.s:0:2);
writeln('площадь квадрата C=',c.s:0:2);
write('минимальную площадь имеет квадрат ',imn);
readln
end.