[lxa85]

dasha131, где у тебя end; // for j ?
цикл

Код:

    for j:=1 to n do
    begin
            if (abs(i-j)>l)and(a[i,j]<>0)then f:=false;
            if (abs(i-j)<l)and(a[i,j]=0)then f:=false;
    end;

не закрыт.

А верней закрыт, но не там.

Код:

program asdf;
const
    n=4;
var
  a:array[1..n,1..n]of integer;
  f:boolean;
  l,i,j:integer;
begin
  l:=1;
    for i:=1 to n do
    for j:=1 to n do
      begin
        write('Enter A[',i,',',j,']:=');
        readln(a[i,j]);
      end;
    f:=true;
    for i:=1 to n do
    for j:=1 to n do
    begin
            if (abs(i-j)>l)and(a[i,j]<>0)then f:=false;
            if (abs(i-j)<l)and(a[i,j]=0)then f:=false;
    end;//for j
     
    write('matrix band:',f:7);
  readln;

end.