Найдите ошибку пожалуйста

program three;
var f: text;
    m: string;
    B: array[1..8,1..8] of integer;
    j,code: integer;
    i,l1,s1,p,k: integer;
    l2,s2,s: integer;
Begin
s:=0;
Assign(f,'INPUT.TXT');
 Reset(f); 
 Read(f,m);
l1:= Ord(m[4])-96;  {преобразуем символ в число и отнимем 96 для получения чесел 1..8}
 Val(m[5],l2,code);
s1:= Ord(m[1])-96;
 Val(m[2],s2,code);
Close(f);
 
for i:= 1 to 8 do begin
  for j:= 1 to 8 do begin
    if i=l1 then B[i,j]:=1;
    if j=l2 then B[i,j]:=1;
    if abs(i-s1)=abs(j-s2) then B[i,j]:=1;
                    end;
                  end;
 
for i:= 1 to 8 do begin
  for j:= 1 to 8 do begin
    if (abs(i-s1)=abs(j-s2)) and (i=l1) and (j=l2) then begin
if (l1 < s1) and (l2 < s2) then begin
                            for p:=1 to l1-1 do begin
                            for k:=1 to l2-1 do
                            B[p,k]:=0;
                            end;
                            end;
if (l1 < s1) and (l2 > s2) then begin
                            for p:=1 to l1-1 do begin
                            for k:=l2+1 to 8 do
                            B[p,k]:=0;
                            end;
                            end;
if (l1 > s1) and (l2 < s2) then begin
                            for p:=l1+1 to 8 do begin
                            for k:=1 to l2-1 do
                            B[p,k]:=0;
                            end;
                            end;
if (l1 > s1) and (l2 > s2) then begin
                            for p:=l1+1 to 8 do begin
                            for k:=l2+1 to 8 do
                            B[p,k]:=0;
                            end;
                            end;
                                                    end;
if (s1=l1) and (s2 < l2) then begin
                            for k:=1 to s2-1 do
                            B[s1,k]:=0
                            end;
if (s1=l1) and (s2 > l2) then begin
                            for k:=s2+1 to 8 do
                            B[s1,k]:=0
                            end;
if (s2=l2) and (s1 < l1) then begin
                            for p:=1 to s1-1 do
                            B[p,s2]:=0
                            end;
if (s2=l2) and (s1 > l1) then begin
                            for p:=s1+1 to 8 do
                            B[p,s2]:=0
                            end;
end;end;
for i:= 1 to 8 do begin
  for j:= 1 to 8 do begin
  if B[i,j]=0 then s:=s+1;
                    end;
                  end;
 
Assign(f,'OUTPUT.TXT');
 Rewrite(f);
 Write(f,s);
Close(f);
 
for i:= 1 to 8 do begin
  for j:= 1 to 8 do begin
  Write(B[i,j]);
            end;
  writeln;
          end;
readln;
End.