старое

var i,j,w,h,a:integer;
    z1,z2,z4:array [,] of integer;
    z3:array of integer;
  begin
   read(w); read(h);

   z1:= new integer[6,4];
   z2:= new integer[6,4];
   z4:= new integer[6,4];
   z3:= new integer[52];
    for i:=1 to h do
     begin
      writeln;
       for j:=1 to w do             {Первая картинка}
        begin
         read(z1[j,i]);
        end;
     end;
    for i:=1 to h do
     begin
      writeln;
       for j:=1 to w do             {Вторая картинка}
        begin
         read(z2[j,i]);
        end;
     end;
   a:=4;
    for i:=1 to a do
     begin                          {Алгоритм}
      read(z3[i])
     end;
    for i:=1 to h do
     begin
      writeln;
       for j:=1 to w do             {Итог}
        begin
         if z1[j,i]=0 then
           if z2[j,i]=0 then
            z4[j,i]:=z3[1]
           else z4[j,i]:=z3[2]
         else if z2[j,i]=0 then
           z4[j,i]:=z3[3]
          else z4[j,i]:=z3[4];
        end;
     end;
    for i:=1 to h do
     begin
      writeln;
       for j:=1 to w do             {Вывод}
        begin
         write(z4[j,i]);
        end;
     end;
  end.