Принадлежность точки прямоугольнику.

uses crt;
const p=2;{количество прямоугольников}
      t=10;{количество точек}
type Point=record{тип точка с полями}
           x,y:integer;{координаты}
           end;
     Rect=record{тип прямоугольник}
          v,n:Point;{2 вершины(верхняя левая и нижняя правая) - точки}
          end;
mas_p=array[1..p] of Rect;{массив прямоугольников}
mas_t=array[1..t] of Point;{массив точек}
procedure Pryam(var mp:mas_p);{ввод координат прямоугольников}
var i:byte;
begin
for i:=1 to p do
 begin
  writeln('Прямоугольник ',i);
  writeln(' Введите координаты левого верхнего угла:');
  readln(mp[i].v.x,mp[i].v.y);
  repeat
  writeln(' Введите координаты правого нижнего угла:');
  readln(mp[i].n.x,mp[i].n.y);
  if(mp[i].n.x<=mp[i].v.x)or(mp[i].n.y>=mp[i].v.y) then{если правая сторона слева, нехорошо}
  writeln('Ошибка ввода! Повторите.');
  until(mp[i].n.x>mp[i].v.x)and(mp[i].n.y<mp[i].v.y);
 end;
end;
procedure Tochk(var mt:mas_t);{ввод координат точек}
var i:byte;
begin
writeln('Введите координаты точек:');
for i:=1 to t do
 begin
  writeln(' Точка ',i);
  readln(mt[i].x,mt[i].y);
 end;
end;
function Prin(pr:Rect;th:Point):boolean;{определение внутри или нет}
begin
if(th.x>=pr.v.x)and(th.x<=pr.n.x)and(th.y<=pr.v.y)and(th.y>=pr.n.y){внутри}
then Prin:=true else Prin:=false;{нет}
end;
procedure Sravn(mp:mas_p;mt:mas_t);{сравнение количества точек в прямоугольниках}
var i,j,k1,k2:byte;
begin
k1:=0;k2:=0;
for j:=1 to 2 do
for i:=1 to t do
 begin
  if Prin(mp[1],mt[i]) then k1:=k1+1;{если в первом}
  if Prin(mp[2],mt[i]) then k2:=k2+1;{если во втором}
 end;
if(k1=0)and(k2=0)then write('Ни одна точка не принадлежит прямоугольникам.')
else if k1>k2 then write('Больше точек в прямоугольнике 1')
else if k1<k2 then write('Больше точек в прямоугольнике 2')
else write('Количество точек в прямоугольниках равно.');
end;
procedure Vyvod(var mp:mas_p;mt:mas_t);{вывод исходных данных на экран}
var i:byte;
begin
clrscr;
writeln('Координаты вершин прямоугольников:');
for i:=1 to p do
 begin
  write('  № ',i,' ','лев.верх.(',mp[i].v.x,',',mp[i].v.y,')');
  write('  пр.нижн.(',mp[i].n.x,',',mp[i].n.y,')');
  writeln;
 end;
writeln;
writeln('Координаты точек:');
writeln;
write('X: ');
for i:=1 to t do
write(mt[i].x:4);
writeln;
write('Y: ');
for i:=1 to t do
write(mt[i].y:4);
writeln;
writeln;
end;
var mast:mas_t;{массив точек}
    masp:mas_p;{масив прямоугольников}
begin
clrscr;{очищаем экран и последовательно вызываем все процедуры}
Pryam(masp);
Tochk(mast);
Vyvod(masp,mast);
Sravn(masp,mast);
readln
end.