procedure arr_over_test;
begin
  if test1_x>w1 then test1_x:=temp_w
  else
  if test1_y>h1 then test1_y:=temp_h
  else
  if test1_x<0 then test1_x:=temp_w
  else
  if test1_y<0 then test1_y:=temp_h
  else
end;

procedure continent;
begin
  map[temp_w, temp_h]:=2;
  t_wx:= wherex;
  t_wy:= wherey;

  // вверх-вниз V

  test1_x:= temp_w;
  test1_y:= temp_h+1;
  arr_over_test;
  map[test1_x, test1_y]:=2;

  test1_x:= temp_w;
  test1_y:= temp_h-1;
  arr_over_test;
  map[test1_x, test1_y]:=2;

  test1_x:= temp_w+1;
  test1_y:= temp_h;
  arr_over_test;
  map[test1_x, test1_y]:=2;

  test1_x:= temp_w-1;
  test1_y:= temp_h;
  arr_over_test;
  map[test1_x, test1_y]:=2;

  // диагональ V

  test1_x:= temp_w+1;
  test1_y:= temp_h+1;
  arr_over_test;
  map[test1_x, test1_y]:=2;

  test1_x:= temp_w-1;
  test1_y:= temp_h+1;
  arr_over_test;
  map[test1_x, test1_y]:=2;

  test1_x:= temp_w+1;
  test1_y:= temp_h-1;
  arr_over_test;
  map[test1_x, test1_y]:=2;

  test1_x:= temp_w-1;
  test1_y:= temp_h-1;
  arr_over_test;
  map[test1_x, test1_y]:=2;

end;