Выход за границы диапазона byte

Uses Crt;
 Var dsnf:array [1..16,1..4] of byte;
  sup:array [1..16,1..4] of byte;
 prim,skl3,skl4:array [1..8,1..4] of integer;
 ind,ind1:array [1..16] of byte;
 met:array [1..17] of byte;
 skl,skup,skl2:array[1..17,1..4] of byte;
 o,l,i,j,k,max,min,n,p,r,a,b,c,d,e,f,g,g1,d1,s,ch:byte;
Begin
   clrscr;
   writeln('Ââåäèòå êîëè÷åñòâî ñòðîê ');
   readln(ch);
   writeln('Ââåäèòå ÄÑÍÔ');
  for i:=1 to ch do
  for j:=1 to 4 do
  read(dsnf[i,j]);
  For i:=1 to ch do begin
    ind[i]:=0;
    for j:=1 to 4 do  ind[i]:=ind[i]+dsnf[i,j];
                    end;
   max:=ind[1];
  for i:=1 to ch do if max<ind[i] then max:=ind[i];
  j:=1;
  repeat
  min:=ind[1];
  for i:=1 to ch do IF ind[i]<min THEN  min:=ind[i];
  for i:=1 to ch do IF ind[i]=min THEN  begin
   ind[i]:=max+1;
   l:=i;
  for k:=1 to 4 do sup[j,k]:=dsnf[l,k];
   inc(j);                    end;
  until j=ch+1;
 For i:=1 to ch do begin
    ind[i]:=0;
for j:=1 to 4 do ind[i]:=ind[i]+sup[i,j];
                              end;
n:=0;     p:=0;
  for i:=1 to ch do
  for j:=1 to ch-i do if ind[i+j]-ind[i]=1 then
                                             begin
  for k:=1 to 4 do if sup[i,k]<>sup[i+j,k] then begin
   inc(n);
   l:=k;    end;
  if n=1 then  begin
   inc(p);
 for r:=1 to 4 do skl[p,r]:=sup[i,r];
    skl[p,l]:=5;    end;
     n:=0;                                  end;
  i:=1;     n:=1;
for j:=1 to 4 do
  for i:=1 to p do if skl[i,j]=5 then begin
   for r:=1 to 4 do skup[n,r]:=skl[i,r];
inc(n);                                            end;
readln;
for i:=1 to p do                             begin
      ind[i]:=0;
  for j:=1 to 4 do
  if skup[i,j]<>5 then
  ind[i]:=ind[i]+skup[i,j];                 end;
  for i:=1 to p do met[i]:=1;
  n:=0;     e:=0;      g1:=p;
  for i:=1 to p do
  for j:=1 to p-i do
  if ind[i+j]-ind[i]=1 then     begin
  for k:=1 to 4 do
  if skup[i,k]<>skup[i+j,k] then begin
   inc(n);     l:=k;                           end;
      if n=1 then begin
      inc(e);
   for r:=1 to 4 do
   skl2[e,r]:=skup[i,r];       skl2[e,l]:=5;
     met[i]:=0;       met[i+j]:=0;
       end;
     n:=0 end;
s:=0;
  for i:=1 to g1 do
  if met[i]=1 then           begin
   inc(s);
 for j:=1 to 4 do
 prim[s,j]:=skup[i,j];       end;
for i:=1 to e do
 for j:=1 to e-i do   begin
  d:=0;
 for k:=1 to 4 do
 if skl2[i,k]=skl2[i+j,k] then inc(d);
 if d=4 then
 for k:=1 to 4 do
 skl2[i+j,k]:=0;      end;
 f:=0;
 for i:=1 to e do begin
   d:=0;
  for k:=1 to 4 do
  if skl2[i,k]=0 then inc(d);
  if (d<>4) then          begin
  inc(f);
  for k:=1 to 4 do
  skl[f,k]:=skl2[i,k];      end;
                             end;
For i:=1 to f do begin
   ind[i]:=0;
 for j:=1 to 4 do
 if skl[i,j]<>5 then
 ind[i]:=ind[i]+skl[i,j];
                         end;
  n:=0;    o:=0;
  for i:=1 to e do met[i]:=1;
  for i:=1 to f do
  for j:=1 to f-i do
  if ind[i+j]-ind[i]=1 then       begin
 for k:=1 to 4 do
 if skl[i,k]<>skl[i+j,k] then begin
 inc(n);   l:=k;                        end;
  if n=1 then begin
  inc(o);
  for r:=1 to 4 do
  skl3[o,r]:=skl[i,r];     skl3[o,l]:=5;     met[i]:=0;     met[i+j]:=0;
                    end;
  n:=0;                                       end;
for i:=1 to f do
 if met[i]=1 then     begin
   inc(s);
 for j:=1 to 4 do
 prim[s,j]:=skl[i,j];    end;
for i:=1 to o do
 for j:=1 to o-i do       begin
  d:=0;
 for k:=1 to 4 do
 if skl3[i,k]=skl3[i+j,k] then inc(d);
  if d=4 then
  for k:=1 to 4 do
  skl3[i+j,k]:=0;             end;
f:=0;
for i:=1 to o do begin
                     d:=0;
                     for k:=1 to 4 do if skl3[i,k]=0 then inc(d);
                     if (d<>4) then begin
                                      inc(f);
                                      for k:=1 to 4 do skl4[f,k]:=skl3[i,k];
                                           end;
                       end;
 inc(s);
 for i:=1 to 4 do prim[s,i]:=skl4[1,i];
 writeln;
 writeln('ÏÐÎÑÒÛÅ ÈÌÏËÈÊÀÍÒÛ ');
 write('======================');
 for i:=1 to 5 do begin
 writeln;
 for j:=1 to 4 do
 if j<4 then begin
 if prim[i,j]=5 then write('*')
 else  write(prim[i,j])
 end
 else begin
  if prim[i,j]=5 then write('*')
  else  write(prim[i,j],'  ');
 end;                    end;
 writeln;   write('======================');
 readln;
End.