Определить, пересекаются ли данные прямоугольники

var 
ax,ay,bx,by:array[1..100] of integer;
an,bn,i,maxax,minax,maxay,minay,maxbx,minbx,maxby,minby:integer;
f:boolean;
begin
maxax:=1;minax:=1;maxay:=1;minay:=1;maxbx:=1;minbx:=1;maxby:=1;minby:=1;
write('Введите кол-во точек прямоугольника А:'); read(an);
writeln('Введите точки прямоугольника А:');
for i:=1 to an do begin
write('Введите x ', i, ' точки '); read(ax[i]);
if ax[maxax]<ax[i] then maxax:=i;
if ax[minax]>ax[i] then minax:=i;
write('Введите y ', i, ' точки '); read(ay[i]);
if ay[maxay]<ay[i] then maxay:=i;
if ay[minay]>ay[i] then minay:=i;
end;
write('Введите кол-во точек прямоугольника B:'); read(bn);
writeln('Введите точки прямоугольника B:');
for i:=1 to bn do begin
write('Введите x ', i, ' точки '); read(bx[i]);
if bx[maxbx]<bx[i] then maxbx:=i;
if bx[minbx]>bx[i] then minbx:=i;
write('Введите y ', i, ' точки '); read(by[i]);
if by[maxby]<by[i] then maxby:=i;
if by[minby]>by[i] then minby:=i;
end;
writeln('Общие точки: ');
for i:=1 to an do 
if (ax[i]<=bx[maxbx]) and (ax[i]>=bx[minbx]) and (ay[i]<=by[maxby]) and (ay[i]>=by[minby]) then begin
writeln(ax[i],' ',ay[i]);
f:=true;
end;
for i:=1 to bn do
if (bx[i]<=ax[maxax]) and (bx[i]>=ax[minax]) and (by[i]<=ay[maxay]) and (by[i]>=ay[minay]) then begin
writeln(bx[i],' ',by[i]);
f:=true;
end;
if f=false then write('таких точек нет');
writeln();
readln();
end.