Попадание точек в прямоугольники: блок-схема

Program abc;
const p=2;
      t=10;
type Point=record
           x,y:integer;
           end;
     Rect=record
          v,n:Point;
          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('prjamougolnic ',i);
  writeln(' vvedite koord levogo verkhnego ugla:');
  readln(mp[i].v.x,mp[i].v.y);
  repeat
  writeln(' vvedite koord pravogo nizhnego ugla:');
  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('oshibka vvoda! povtorite');
  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('vvedite koord tochek:');
for i:=1 to t do
 begin
  writeln(' tochka ',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('ni odna tochka ne prinadlezhit prjamougolnicam')
else if k1>k2 then write('bolshe tochek v prjamoug 1')
else if k1<k2 then write('bolshe tochek v prjamoug 2')
else write('kol-vo tochek v prjamougolnikah ravno');
end;
procedure Vyvod(var mp:mas_p;mt:mas_t);
var i:byte;
begin
writeln('koordinaty vershin prjamougolnicov:');
for i:=1 to p do
 begin
  write('  ь ',i,' ','lev.verkh.(',mp[i].v.x,',',mp[i].v.y,')');
  write('  pr.nizhn.(',mp[i].n.x,',',mp[i].n.y,')');
  writeln;
 end;
writeln;
writeln('koord tochek:');
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
Pryam(masp);
Tochk(mast);
Vyvod(masp,mast);
Sravn(masp,mast);
readln
end.