Ошибка с переполнением стека

program pr1;
uses crt;
const cst=1000;
      dx=0.1;
      dy=0.1;
type zap=record
     x1:integer;
     y1:integer;
     x2:integer;
     y2:integer;
     x3:integer;
     y3:integer;
     end;
 
     mass=array[1..cst] of zap;
 
var mas:mass;
    s:real;
    i,n,t:integer;
    f:text;
 
 
function ras(x1,y1,x2,y2:real): real;
begin;
ras:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
 
function arcos(x,y,x1,y1,x2,y2:real):real;
var a:real;
begin;
a:=((sqr(ras(x,y,x1,y1))+sqr(ras(x,y,x2,y2))-sqr(ras(x1,y1,x2,y2))))/(2*sqr(ras(x,y,x1,y1))*sqr(ras(x,y,x2,y2)));
arcos:=arctan(sqrt(1-sqr(a))/a);
end;
 
function owned(x,y,x1,y1,x2,y2,x3,y3:real):boolean;
begin;
if arcos(x,y,x1,y1,x2,y2)+arcos(x,y,x2,y2,x3,y3)+arcos(x,y,x3,y3,x1,y1)=2*pi
        then owned:=true
        else owned:=false;
end;
 
procedure findkoord(xmin,ymin,xmax,ymax,n:integer; mas:mass);        {Searching for max and min koordinates}
var i:longint;
begin;
xmin:=mas[i].x1;
ymin:=mas[i].x1;
xmax:=mas[i].x1;
ymax:=mas[i].x1;
for i:=1 to n do begin;
                 if mas[i].x1>xmax then xmax:=mas[i].x1;
                 if mas[i].x1>xmax then xmax:=mas[i].x2;
                 if mas[i].x1>xmax then xmax:=mas[i].x3;
                 if mas[i].x1<xmin then xmin:=mas[i].x1;
                 if mas[i].x1<xmin then xmin:=mas[i].x2;
                 if mas[i].x1<xmin then xmin:=mas[i].x3;
                 if mas[i].y1>ymax then ymax:=mas[i].y1;
                 if mas[i].y1>ymax then ymax:=mas[i].y2;
                 if mas[i].y1>ymax then ymax:=mas[i].y3;
                 if mas[i].y1<ymin then ymin:=mas[i].y1;
                 if mas[i].y1<ymin then ymin:=mas[i].y2;
                 if mas[i].y1<ymin then ymin:=mas[i].y3;
                 end;
end;
 
procedure checkowned(mas:mass; n,t:integer; s:real );      {Finding the area of the square}
var i,k:longint;
    xmin,ymin,xmax,ymax:integer;
    x,y:real;
begin;
t:=0;
findkoord(xmin,ymin,xmax,ymax,n,mas);
x:=xmin;
y:=ymin;
repeat;
    x:=x+dx;
    repeat
          y:=y+dy;
          for i:=1 to n do if owned(x,y,mas[i].x1,mas[i].y1,mas[i].x2,mas[i].y2,mas[i].x3,mas[i].y3) then
              begin;
              inc(t);
              continue;
              end;
          inc(k);
    until y=ymax;
until x=xmax;
s:=t*abs(xmax-xmin)*abs(ymax-ymin)/k;
end;
 
{**********************************************************************************}
 
BEGIN;
assign(f,'input.txt');
reset(f);
readln(f,n);
for i:=1 to n do readln(f,mas[i].x1,mas[i].y1,mas[i].x2,mas[i].y2,mas[i].x3,mas[i].y3);
checkowned(mas,n,t,s);
writeln(s:7:3);
readln;
close(f);
assign(f,'output.txt');
rewrite(f);
write(f,s);
END.

procedure findkoord(xmin,ymin,xmax,ymax,n:integer; mas:mass);        {Searching for max and min koordinates}
var i:longint;
begin;
xmin:=mas[i].x1;
ymin:=mas[i].x1;
xmax:=mas[i].x1;
ymax:=mas[i].x1;