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

uses crt;
procedure Sqre(x1, y1, x2, y2: integer; var c:longint);
     begin
     c:=abs(x1-x2)*abs(y1-y2);
     end;
var min, sq: longint;
a, b, c, d, i, num: integer;
begin
clrscr;
num:=1;
for i:=1 to 3 do
     begin
     writeln('Введите координаты вершин  ', i, ': ');
     readln(a, b, c, d);
     Sqre(a, b, c, d, sq);
     if i=1 then min:=sq else if sq<min then 
          begin
          min:=sq;
          num:=i;
          end;
     end;
write('Наименьший  номер ', num, ', его площадь равна ', min);
readln;
end.