Помогите пожалуйста найти ошибку Опции

[Mandarinka]

собственно прога:

program matrix;
label 1;
var x,y,z:array [1..9,1..4] of integer;
    x1,y1,z1:integer;
procedure zero(var d:array[1..9,1..4] of integer;nol:integer);
     var i,j,nol:integer;
     begin
          for j:=1 to 4 do
          begin for i:=1 to 9 do read d[i,j]; readln end;
          nol:=0;
          for j:=1to 4 do
             for i:=1 to 9 do
                 while d[i,j]=0 do
                    if i:=9 then nol:=nol+1;
          end;
procedure wr(var d:array[1..9,1..4]of integer);
          var i,j:integer;
          begin
          for j:=1 to 4 do
              for i:=1 to 9 do
                  begin write(d[i,j]); writeln end;
          end;
begin
     zero(x,x1);
     zero(y,y1);
     zero(z,z1);
     if (x1>y1) and(x1>z1) then begin wr(x); goto 1 end;
     if (y1>x1) and(y1>z1) then begin wr(y); goto 1 end;
     if (z1>x1) and(z1>y1) then begin wr(z); goto 1 end;
     if (x1=y1) and(x1=z1) then begin wr(z); wr(y); wr(z); goto 1 end;
     if (x1=y1) and(z1<x1) then begin wr(x); wr(y) goto 1 end;
     if (x1=z1) and(y1<x1) then begin wr(x); wr(z) goto1 end;
     if (y1=z1) and(x1<y1) then begin wr(y); wr(z) end;
1:
end.